Задание:
Дано натуральное чсло N. Составте программу, которая определяет, является ли последовательность цифр этого числа (при просмотре их справа налево) упорядоченной по возрастанию.
Решение:
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.
Знаете другой ответ?