Решаем задачи Абрамян на Паскале. Boolean23

Boolean23. Дано четырехзначное число. Проверить истинность высказывания: «Данное число читается одинаково слева направо и справа налево».
Решение:

program Boolean23;
var
 A: Integer;
begin
  Write('Введите число A: ');
  Readln(A);
  Writeln(((A mod 10)=(A div 1000)) and (((A mod 100) div 10 ) =((A mod 1000) div 100 )));
end.

program Boolean23;

var

A: Integer;

begin

Write('Введите число A: ');

Readln(A);

Writeln(((A mod 10)=(A div 1000)) and (((A mod 100) div 10 ) =((A mod 1000) div 100 )));

end.

Другие задачи из раздела Boolean можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Boolean23

Комментарии:

Добавить комментарий Отменить ответ