Войти Регистрация Спроси ai-bota

Ввести n чисел вывести количество чётных.(паскаль)

Ответ:

EgrVir2018

09.09.2020 08:20

Program n1;
var a,i,n,k: 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.

0,0(0 оценок)

Популярные вопросы: Информатика

kittikatlove

20.06.2020 19:58

Люди добрые, на ! вычислить в паскаль: 1. y = x - x³\3 + x⁵\52. y = 2⁻ˣ - cosx + sin (2xy)3. y = x²-7x+10\x²-8x+124. y = x - 10sinx + | x⁴ - x⁵ |нужно написать коды программ...

простоквашино2345

04.07.2020 09:26

Сформулируйте определение носителя информации...

хорошист537

16.05.2022 06:54

Дано описание массива: var a: array [1..29] of integer; здесь oписан массив a из [1]целочисленных значений. при выполнении этого оператора в памяти компьютера будет выделено...

DamirJonson

16.05.2022 06:54

Исполнитель редактор получает на вход строку цифр и преобразовывает её. редактор может выполнять две команды, в обеих командах v и w обозначают цепочки цифр. заменить (v,...

еддпмаад

06.11.2021 22:24

Перевести число из десятичной системы счисления в двоичную систему счисления а10=55,123...

Katуа07

11.06.2022 23:45

Найти кол-во элементов в массиве привышающих сотню...

bgdadanilenko20

11.06.2022 23:45

Решить (желательно с объяснением) заранее . биолог проводит серию из 50 последовательных экспериментов, каждый из которых имеет 11 возможных исходов. при учете результатов...

LOKI46

21.10.2022 04:37

третий класс информатика страница 58 как дети проводят своё свободное время раскрасить рисунок Назови что изображено на рисунке Составь рассказ по рисунку...

qsn50857

05.08.2021 16:51

Что такое компьютерный вирус, как от него избавиться?...

снегурочка01

10.09.2021 23:05

Дано три числа a, b, c. Змінній m присвоїти значення найбільшого з трьох чисел....

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку