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

Boolean21. Дано трехзначное число. Проверить истинность высказывания: «Цифры данного числа образуют возрастающую последовательность».
Решение:

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

program Boolean21;

var

A: Integer;

begin

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

Readln(A);

Writeln(((A mod 10)> ((A mod 100) div 10 )) and ((A mod 100) div 10 >(A div 100)));

end.

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

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

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

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