Напишите программу, которая в последовательности натуральных чисел определяет количество чисел кратных 6 и оканчивающихся на 4. Программа получает на вход количество чисел в последовательности, а затем сами числа.Программу написать в Паскале.

Вопрос школьника по предмету Информатика

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел кратных 6 и оканчивающихся на 4. Программа получает на вход количество чисел в последовательности, а затем сами числа.
Программу написать в Паскале.

Ответ учителя по предмету Информатика

program co;

var

i, n, t, c: integer;

begin

c := 0;

readln(n);

for i := 1 to n do

begin

readln(t);

if (t mod 6 = 0) and (t mod 10 = 4) then

c := c + 1;

end;

writeln(‘чисел: ‘, c);

end.