Question

Возрастает или нет? pascal abcдано натуральное число n. необходимо определить, является ли последовательность его цифр при просмотре справа налево по возрастанию.формат входных данныхвводится целое число n (1≤n≤231−1).формат выходных данныхвыведите «yes», если условие выполняется, и «no» в противном случае.примерывходные данные выходные данные5321yes7820no

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.