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.