Возрастает или нет? pascal abcдано натуральное число n. необходимо определить, является ли последовательность его цифр при просмотре справа налево по возрастанию.формат входных данныхвводится целое число n (1≤n≤231−1).формат выходных данныхвыведите «yes», если условие выполняется, и «no» в противном случае.примерывходные данные выходные данные5321yes7820no
Mariyaftolov
3
26.04.2019 21:43
1
Другие вопросы по теме Информатика
Leonelle
15.02.2021 08:02
turuo
15.02.2021 07:59
тисрлю
02.10.2021 09:07
anna1877
02.10.2021 09:05
lizadorfv
02.10.2021 09:03
vifi
14.09.2019 15:50
Mrx7777
14.09.2019 15:50
AksenovaKatya2007
14.09.2019 16:00
Gesha11
14.09.2019 16:00
Юлья0000000
16.04.2019 22:54
Популярные вопросы
- Составьте предложения с глаголами mistake (mistook), hide(hid), lie(lay), give...
3 - В5 предложениях прокомментируйте следущее высказивание : у всякого человека...
2 - 1)какой путь пройдёт маятник за одно полное колебание,если амплитуда колебаний...
3 - Разобрать по членам предложения: лесную полянку укрыл пушистый снежок....
3 - According to statistics, a large number of teens watch music videos more than...
3 - Решить уравнение: (х^{2}-9)^{2}-8(x^{2}-9)+7=0...
2 - Объясните фразу дух братства сближал сердца...
3 - Из поселков, находящихся на расстоянии 30 км, выехали в направлении озера два...
1 - Составьте два предложения со словом: словом. в 1ом предложении чтобы оно было...
2 - Велосопидист за 3ч проехал 24км а пешеход за 4ч км во сколько раз скорость велосипидиста...
3
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.