Question

Напишите программу, которая в последовательности целых чисел определяет количество четных чисел кратных 7. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30000. Программа должна вывести одно число: количество четных чисел кратных 7​

Answer 1

var

n, k, i, a: Integer;

begin

readln(n);

if n > 1000 then begin

writeln('False');

exit;

end;

k:=0;

for i := 1 to n do

begin

readln(a);

if (a <= 30000) and (a>=-30000) and (a mod 7 = 0) and (a mod 2 = 0)  

then begin

k:=k+1;

end;

end;

writeln(k);

end.