Ответы на вопрос:
var
count, x : integer;
begin
count : = 0;
repeat
read (x);
if (x mod 4=0) and (x mod 10=4) then inc (count);
until x = 0;
writeln (count);
end.
Популярно: Информатика
-
LilauSen06.08.2021 13:27
-
amina31814.01.2022 21:10
-
АнастасияCat14422.03.2021 14:50
-
elenafrolova3130.10.2020 04:47
-
cheburek2021.01.2022 14:07
-
Julia7770720.10.2020 20:32
-
julia77mama03.06.2020 10:16
-
ника393118.07.2022 03:58
-
omon356517.06.2020 13:58
-
oksanalap101.09.2022 08:04