Контрольные задания > 11. (3 балла). Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. Программа должна вывести одно число количество чисел, крат-ных 4.
Вопрос:
11. (3 балла). Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. Программа должна вывести одно число количество чисел, крат-ных 4.
pascal
var
n, count, num, i: integer;
begin
readln(n);
count := 0;
for i := 1 to n do
begin
readln(num);
if num mod 4 = 0 then
count := count + 1;
end;
writeln(count);
end.