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

Ответы 1

  • var n,k:integer; b:boolean;beginwrite('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.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years