Регистрация
FrenkieMC
16.04.2020 05:13
Информатика
Есть ответ 👍

решить все задания, отдам все свои 35 балов

267
350
Посмотреть ответы 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.

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