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

Ответ

Автор - AnonimusPro

Program n1;

var a,k,n,i: integer;

begin

readln(n);

k:=0;

for i:=1 to n do begin

readln(a);

if a mod 10=6 then k:=k+1;

end;

write(k);

end.

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.