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

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

Ответ:

Sherstobitove

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 оценок)

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

Девочка1124

11.01.2020 08:45

1. Преобразуйте числа из одной системы счисления в другую. 2. 2. (А+В)*А Заполните таблицу истинности логического выражения....

VasyaHrenov

30.08.2020 16:35

1. Какая встроенная функция вводит данные с клавиатуры? a) input; b) print; c) def; d) abs. 2. Какая встроенная функция выводит данные на экран? a) input; b) print; c) def; d) abs....

буля4

19.07.2022 03:45

Вывести на экран таблицу значений функции y=e^sin(x)cos(x) на отрезке [0;П/2] с шагом СО СИНТАКСИСОМ WHILE...

Neder

01.01.2023 22:31

даю 50 юалов 4. Все ли программы должны подвергаться тестированию?5. Какова цель тестирования программы?6. Какими должны быть план и стратегия тестирования?...

allaxarchenko

03.10.2021 23:57

Записать значение переменной k полученное в результате работы следующие программы: ...

unknown38

04.08.2022 01:28

Я вам задаю вопросы, а вы отвечаете да или нет . Говорят, что в море сладкая вода? Говорят,что красный свет проезда нет? Говорят, что но если очень вы спешите , то перед транспортом...

лиод1

08.03.2020 18:38

Здравствуйте, можете мне с номером !...

savvakuratov2005

08.03.2020 18:38

Повторение курса математики 5-6 классов. Урок 4 Сколько разнополых пар можно сформировать из пяти мальчиков и пяти девочек, посещающих танцевальный кружок?...

saidislom01

16.07.2022 05:20

6-тапсырма 156-бет. Шоканның әңгімесі бойынша күнделік жазындар./Напиши дневник по рассказу Шокана ...

ekaterina9919

18.08.2022 08:33

Эссе на тему каким бы я хотела видеть Казахстан в будущем 70 слов Соч...

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

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