Пользователь вводит 20 чисел. напишите программу,которая будет считать количество четных чисел. надо сделать в pascalabc . 8 класс.
256
340
Ответы на вопрос:
Program n1; var a,k,i: integer; begin for i: =1 to 20 do begin readln(a); if a mod 2=0 then k: =k+1; end; writeln(k); end.
Популярно: Информатика
-
Leramedvedeva1213.04.2022 10:23
-
makskolisnik9ouay0808.04.2023 06:24
-
agellertova08.09.2022 15:06
-
ra1si1ka123.11.2020 16:37
-
яильяатыилья30.01.2021 10:51
-
mamka1818.11.2022 16:18
-
xbusxj03.10.2020 13:54
-
дяья92824.04.2020 17:43
-
XxNoNamexX23.10.2021 05:11
-
Zhernakova19.08.2021 15:42