Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Напишите программу для паскаль! Дано натуральное число. Установить, является ли последовательность его цифр при просмторе их справа налево упорядоченной по возрастанию.

Ответ оставил Гость

Var n,k:integer; b:boolean;
begin
write(n=); readln(n);
b:=true;k:=0;
while n<>0 do
 begin
 b:=b and (n mod 10>k);
 k:=n mod 10;
 n:=n div 10;
 end;
if b then writeln(Цифры числа упорядочены)
     else writeln(Цифры числа не упорядочены);
end.