Question

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

Пример работы программы:

Входные данные Выходные данные
4
16
28
26
24
2

Answer 1

var n,i,a,k: integer;  

begin    

readln(n);    

k := 0;    

for i := 1 to n do    

begin  

  readln(a);  

  if (a mod 4 = 0) and (a mod 7 <> 0) then k:=k+1;    

end;    

writeln(k)  

end;

Answer 2

## ReadSeqInteger(ReadInteger).Where(t -> t.Divs(4) and t.NotDivs(7)).Count.Print