Дано 3-х значное число. Определить образуют ли цифры упорядоченную последовательность.

Var

n, m, d: integer;

begin

Write ('Введите трехзначное число: ') ;

Readln (n) ;

if (n 999) then

Writeln ('У Вас странное представление о трехзначных числах!')

else begin

d : = n div 100; {старшая}

n : = n mod 100;

m : = n div 10; {средняя}

n : = n mod 10; {младшая}

if (m > d) and (n > m) then

Writeln ('Цифры следуют в возрастающей последовательности')

else if (m < d) and (n < m) then

Writeln ('Цифры следуют в убывающей последовательности')

else Writeln ('Цифры не образуют монотонную последовательность')

end

end.

Тестовое решение:

Введите трехзначное число: 159

Цифры следуют в возрастающей последовательности