Ответы на вопрос:
Var i, n, k, a: integer; begin readln(n); k: =0; for i: =1 to n do begin readln(a); if (a mod 2 = 0) and (i mod 2 = 0) then inc(k); end; writeln(k); end.
Популярно: Информатика
-
Нарисовать блок-схему алгоритма и написать программы, которые определяют,...
alekcandrina20019.11.2020 20:56 -
Тот составьте таблицу истинности для выражения: a∧(b∨c)∨(b∧ ¬c)...
dl91987917.10.2020 05:45 -
Почему программирование это интересно?...
karina666212.09.2022 08:43 -
B. в электронной таблице в ячейке b3 записали формулу =e$5-$d4. после этого...
Anettalove3511.03.2023 04:39 -
Розкажите про ошибки такие как 404, 403, 401 и 500...
1007192701.06.2021 08:42 -
Полнения алго- 6. Какое значение получит переменная у после выполнения ритма?...
dbuzoverova25.12.2022 04:22 -
53 протон 74 нейтрон 53 электрон бар элемент...
katelove812.11.2020 19:22 -
Распредели слова по соответствующим ячейкам. Внутренняя торговля и Внешняя...
alyo7na13.02.2021 08:25 -
надо Определите личность . Каков его вклад в историю ...
leradorozhnyak16.03.2021 09:37 -
Определите, что будет выведено на экран в результате выполнения программы?...
ddddsfvxsf27.06.2020 16:14