Question

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

Answer 1

Vara,b,f,count:integer;beginread(a);count:=0;for b:=1 to a do beginread(f);if (f mod 3=0) and (f mod 10=2) then count:=count+1;end;write(count);end.