Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, оканчивающихся на 8. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 8.Количество чисел не превышает 1000. Введённые числа по модулю
не превышают 30 000.Программа должна вывести одно число: количество чисел, оканчивающихся на 8.
не превышают 30 000.Программа должна вывести одно число: количество чисел, оканчивающихся на 8.
Answers & Comments
var k,q,i:integer;
begin
readln(q);
k:=0;
repeat
read(i);
if (i<30000) and (i mod 10=8) then inc(k);
q:=q-1;
until q=0;
writeln;
writeln(k);
end.