3. Напишите программу, которая в последовательности натуральных чисел определяет...

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.

Comments

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