Возрастает или нет? PASCAL ABC
Дано натуральное число n. Необходимо определить, является ли последовательность его цифр при просмотре справа налево упорядоченной по возрастанию.
Формат входных данных
Вводится целое число n (1≤n≤231−1).
Формат выходных данных
Выведите «YES», если условие задачи выполняется, и «NO» в противном случае.
Примеры
входные данные выходные данные
5321----------------------------YES
7820----------------------------NO
Дано натуральное число n. Необходимо определить, является ли последовательность его цифр при просмотре справа налево упорядоченной по возрастанию.
Формат входных данных
Вводится целое число n (1≤n≤231−1).
Формат выходных данных
Выведите «YES», если условие задачи выполняется, и «NO» в противном случае.
Примеры
входные данные выходные данные
5321----------------------------YES
7820----------------------------NO
Answers & Comments
Var x, k, a,s, b:Integer ;
Begin
Write ('x=') ;read(x) ;
B:=-1;k:=0;s:=0;
While x>0 do begin
A:=x mod 10;
If a>b then k:=k+1;
S:=s+1;
X:=x div 10;b:=a;
End;
If k=s then writeln('YES') Else writeln('NO') ;
End.