Ответы на вопрос:
Uses crt; var i: integer; begin clrscr; for i: =17 to 99 do if i mod 10 =7 then writeln(i); end.
Uses crt; var i,k: integer; begin k: =0; for i: =1000 to 9999 do if (i mod 2< > 0) and (i mod 3< > 0) then inc(k); writeln(k); end.
Популярно: Информатика
-
Соря1124.04.2021 14:04
-
Adel20041202.01.2020 19:32
-
ПоЛИнА1057103.02.2020 22:54
-
Римская119.05.2021 21:56
-
милаха8018.01.2022 08:44
-
mariyakohtuk26.04.2022 05:45
-
makar32ryc05.03.2022 03:50
-
drblk328203.12.2022 19:12
-
tsyhanenkok01.09.2022 09:35
-
Анкта24.04.2023 12:47