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.

Объяснение:

Answer 2

Решение на языке программирования Pascal:

program CountMultiplesOfSix;

var
  n, i, num, count: integer;

begin
  readln(n);
  count := 0;
  
  for i := 1 to n do
  begin
    readln(num);
    if (num mod 6 = 0) then
      count := count + 1;
  end;
  
  writeln(count);
end.

Программа считывает количество чисел в последовательности (`n`), а затем считывает сами числа. Затем она проверяет каждое число на кратность 6 и увеличивает счетчик, если число кратно 6. В конце программа выводит количество чисел, кратных 6.

Пример работы программы:

Входные данные:
5
12
18
25
36
42

Выходные данные:
3

В данном примере в последовательности из 5 чисел есть 3 числа, кратных 6 (12, 18 и 36).

Примечание: Программа предполагает, что в последовательности всегда есть число, кратное 4, и что количество чисел не превышает 1000, а введенные числа не превышают 30000.