Question

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число — количество чисел, кратных 3. НА PASCAL!!!!

Answer 1

Ответ:

var  

 n,b,c: integer;

begin

 readln(n);

 while n > 0 do

   begin

   readln(b);

   if b mod 3 = 0 then

   begin

     c:= c +1;

   end;

   n:= n - 1;

   end;

 writeln(c)

end.