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

Категория: Delphi/Pascal
2011-11-24 21:12:05

Дано трехзначное число.

code: #pascal
Program Boolean21;
Var
A:Integer;
Begin
ReadLn(A);
WriteLn((((A Div 100) Mod 10) < ((A Div 10) Mod 10)) Or ((((A Div 10) Mod 10)) < (A Mod 10)));
ReadLn;
end.

автор: Sklyarov Sergej a.k.a. S9

Поделиться:

Похожие статьи: