Регистрация
ZEN24
21.05.2023 21:01
Информатика
Есть ответ 👍

Инфортматика 7 класс вторая часть номер 137

252
302
Посмотреть ответы 2

Ответы на вопрос:

KatonAnton
KatonAnton
4,4(27 оценок)
Ответ: 2 если у тебя босова
Чаромаг
Чаромаг
4,4(30 оценок)

program z1;

var x,m,n: integer;

f: boolean;

begin

readln(x);

f: =true;

m: =x mod 10; x: = x div 10;

while x< > 0 do begin

n: =x mod 10;

x: =x div 10;

if n> m then begin

f: =false;

break

end;

m: =n

end;

if f then writeln('yes')

else writeln('no');

readln

end.

Популярно: Информатика