Дано натуральное чсло…

Question

Дано натуральное чсло N. Составте программу, которая определяет, является ли последовательность цифр этого числа (при просмотре их справа налево) упорядоченной по возрастанию.

Answer 1

59

abrikoska

14 апреля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: