Ответы на вопрос:
Program abc; var a, b: integer; beginb: =0; for i: integer: =1 to 8 do beginreadln(a); // если числа идут на разных строках пиши readln(a); если на одной read(a); if (a mod 3 =0) and (a mod 10 = 4) then b: =b+1end; writeln(b)end.
Популярно: Информатика
-
GromOverzhec12344727.01.2022 06:52
-
Reddi90019.01.2022 05:18
-
mariapogorelova23.10.2021 18:19
-
serega515216.12.2021 05:48
-
suxowaalisa20.10.2021 11:44
-
khsush21.04.2023 20:25
-
natalibezugla202.11.2022 15:12
-
Мarshmallow28.09.2021 11:40
-
EdwardLab20.06.2020 15:11
-
proadidas9023.10.2022 18:46