Question

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

Answer 1

var n, ch, k, i:longint;

begin
k:=0;
i:=0;
for i to n do
begin
readln(ch);
if (ch mod 10=3) then
k:=k+1;
readln(ch);
end;
writeln(k);
end.