Question

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел ,кратных 6 и оканчивающихся на 2.Программа получает на вход количество чисел в последовательности,а затем сами числа.Количество чисел не превышает 100.Введенные числа по модулю не превышают 300.Программа должна вывести одно число:количество чисел,кратных 6 и оканчивающихся на 2.

Answer 1

Var
  n,k,i,t:integer;
begin
  Read(n);
  k:=0;
  for i:=1 to n do begin
    Read(t);
    if (t mod 6=0) and (t mod 10=2) then Inc(k)
    end;
  Writeln(k)
end.