Возрастает или нет? pascal abcдано натуральное число - вопрос №1282358 от ilyamam07 06.04.2020 01:32

Question

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

ilyamam07 · Answer

Var x, k, a,s, b:Integer ;BeginWrite ( x= ) ;read(x) ;B:=-1;k:=0;s:=0;While x 0 do beginA:=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....