Question

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

Answer 1

Ответ:

var n, i, k, a: integer;

begin

 write('Введите количество чисел N = '); readln(n);

 writeln('Вводите числа:');

 for i := 1 to n do

 begin

   readln(a);

   if a mod 6 = 0 then k := k + 1;

 end;

 writeln('Количество чисел, кратных 6, равно ', k);

end.

Объяснение: