Question

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

Answer 1

uses crt;
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.