Ответы на вопрос:
Program g; var i,a,b,c: integer; begin b: =0; c: =0; write('введите кол-во чисел - '); read(a); for i: =1 to a do begin read(b); if (b mod 4 = 0)then c+=1; end; write('количество чисел, кратных 4 - ',c)end.
Популярно: Информатика
-
АлёнаКож04.08.2021 02:30
-
Пчка28.01.2023 00:40
-
serepromskaya18.11.2020 06:20
-
sodel2802.05.2020 11:45
-
yesayes14.09.2020 09:51
-
Слендер1201.06.2022 20:00
-
erro1415.06.2020 12:42
-
254745628.11.2021 04:20
-
Алиса12346410.10.2021 04:15
-
viktoria220607.01.2023 01:52