Дано натуральное чсло 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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
