Регистрация
Blarow
17.05.2022 21:32
Информатика
Есть ответ 👍

Чем отличается учебные проекты от других проектов?

182
465
Посмотреть ответы 1

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

brukaya
brukaya
4,5(61 оценок)
Var     a: longint;     b: boolean; begin b: =true; write('введите целое число: '); readln(a); a: =abs(a); while a div 10 > 0 do     begin     if a mod 10 < a div 10 mod 10 then b: =false;     a: =a div 10     end; if b then write('верно') else write('не верно') end. var     a: longint; begin write('введите целое число: '); readln(a); if a < 0 then     begin     write('-');     a: =-a;     end; while a > 0 do     begin     write(a mod 10);     a: =a div 10     end; end.

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