Задание

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

{tab Решение (Pascal)}

  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. 

Решение (Python)

n=int(input()) 
k := 0
for i in range (n): 
  a=int(input) 
  if a%4==0 and a%7 <> 0:
    k += 1
print(k)