Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 2 и оканчивающихся на 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести одно число: количество чисел, кратных 2 и оканчивающихся на 6.
More Questions From This User See All
Answers & Comments
Verified answer
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.