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

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

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

code: #pascal
Program Boolean22;
Var
a,b,c,N:Integer;
Begin
ReadLn(N);
a := N Div 100;
b := N Div 10 - a*10;
c := N - b*10 - a*100;
WriteLn(((a < b) And (b < c)) Or ((a > b) And (b > c)))
end.

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

Поделиться:

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

теги: трехзначное число, М.Э.Абрамян, убывающая последовательность, последовательность, консольное приложение, студенты, истинность высказывания