Ответы на вопрос:
Var a: integer; begin writeln('введите число'); readln(a); if a< 0 then a: =(-1)*a; if (a mod 7 =0) and (a div 100> 1)then writeln('верно') else writeln('неверно'); end.
Популярно: Информатика
-
sevi8805.03.2021 17:40
-
Zekkin30.03.2020 03:12
-
радмир14030.05.2023 14:47
-
Дефектолог23.01.2022 02:21
-
ЭдикБел26.09.2020 12:43
-
андрей9032111.03.2021 09:59
-
leprekon1999ku23.01.2020 22:25
-
Mimosa123307.08.2021 13:43
-
viki15709.04.2022 06:04
-
Вкуснополлия11.06.2021 10:18