Question

Возрастает или нет? PASCAL ABC



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


Формат входных данных

Вводится целое число n (1≤n≤231−1).

Формат выходных данных

Выведите «YES», если условие задачи выполняется, и «NO» в противном случае.

Примеры

входные данные выходные данные

5321----------------------------YES

7820----------------------------NO

Answer 1

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.