Ответы на вопрос:
Program n1; var a,k,i,n: integer; begin readln(n); k: =0; for i: =1 to n do begin readln(a); if a mod 2=0 then k: =k+1; end; write(k); end.
Популярно: Информатика
-
mkruglik13008.12.2022 23:58
-
влад231720.01.2021 11:14
-
аленаzm04.01.2023 21:54
-
katelove816.07.2020 03:49
-
kokocuk0130.07.2020 18:06
-
asdghkbf15.05.2023 07:09
-
Dimka62103.02.2022 14:00
-
ддд4умник13.12.2021 23:11
-
Dima004401.02.2023 10:16
-
Anhard2329.06.2021 07:47