Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 4. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число — количество чисел, кратных 4.
krasnuykkisa
3
18.05.2020 20:25
0
Другие вопросы по теме Информатика
utopia2
20.05.2019 19:00
Ренчик223
01.06.2019 09:50
Irinamart05
01.06.2019 09:50
ksenia07schapov
16.04.2021 12:41
TheLidiKotic12
16.04.2021 12:41
aaysu228
16.04.2021 12:41
ИлонаУстюгова12
16.10.2020 08:39
ксения1279мпсалч
09.12.2019 13:11
yulia398
09.12.2019 13:11
Популярные вопросы
- Найдите косинус угла ВАС треугольника АВС (угол С - прямой), если...
3 - Кем был на корабле Джон Силвер? * Коком Матросом Капитаном...
1 - Про три числа известно, что они больше нуля и A – B = C Укажите всегда...
3 - Скільки п ятицифрових чисел, усі цифри в яких різні, можна скласти...
1 - ПІДСУМКИ Ми розглядали зразки рослин:. Ми виявили такі спільні ознаки...
2 - Завдання 2 • Зульфікар Алі Бхутто, міністр іноземних справ Пакистану...
3 - Утворіть число 25 та 1976 у порядковому числівнику у родовому, орудному...
1 - Вкажіть назву оксидів гідрати яких є основамиКислотні основні мішані...
1 - Від 50 відняти m і додати 6...
2 - Обозначение орфограммы в словах и найти в предложениях- Олицетворения...
2
var
a: array [1..1000] of integer;
N: integer;
i: integer;
Product: integer;
begin
cnt := 0;
write('Введите количество элементов в массиве: ');
readln(N);
write('Введите элементы массива: ');
for i:=1 to N do
begin
read(a[i]);
if (a[i] mod 4 = 0) then
begin
cnt = cnt + 1;
end;
end;
write('Количество элементов кратных 4: ', cnt);
end.