Question

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 4. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – количество чисел, кратных 4.

Answer 1

program g;var i,a,b,c:integer;begin  b:=0;  c:=0;  write('Введите  кол-во чисел - ');read(a);  for i:=1 to a do begin     read(b);    if (b mod 4 = 0)then c+=1;  end;  write('количество чисел, кратных 4 - ',c)end.