Question

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

Answer 1

var k,n,i,x:integer;

begin

 readln(n);

 for i:=1 to n do begin

   readln(x);

   if(x mod 3 = 0) and (x mod 10 = 5) then

     k:=k+1;

 end;

 writeln(k);

end.