Пользователь вводит 10 целых чисел. подсчитать, сколько среди них четных. (в pascal)
142
306
Ответы на вопрос:
Program asdf; var a: array[1..10] of integer; i,b: integer; begin for i: =1 to 10 do read(a[i]); for i: =1 to 10 do if a[i] mod 2 = 0 then b: =b+1; writeln(b); end.
Популярно: Информатика
-
ObraztsovaOlga09.06.2023 23:38
-
dilnaramusaeva17.02.2022 13:44
-
Лисёнок33512.11.2021 07:00
-
nagibator893067TITAN24.10.2022 15:11
-
LFZ130.07.2022 13:13
-
FREDDY201705.05.2022 04:58
-
Анастасия2310200210.08.2021 17:05
-
MELL11111114.08.2021 22:13
-
Dia111111111111111.09.2020 12:28
-
vektor9931oz1kb319.05.2020 04:30