var x, n: integer; begin write('n = '); readln(n); x : = n mod 10; n : = n div 10; while n > 0 do begin if n mod 10 < x then begin writeln('последовательность по возрастанию'); readln; exit; end; x : = n mod 10; n : = n div 10; end; writeln('последовательность по возрастанию'); readln; end.
Поделитесь своими знаниями, ответьте на вопрос: