Question

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

Answer 1

Var A,K:integer;
Begin
Read(A);
K:=0;
While A <> 0 do
   Begin
   if A mod 6 = 0 then K:=K+1;
   Read(A)
   End;
Write(K)
End.

Answer 2

Я попробую написать программу, которая в последовательности натуральных чисел определяет количество всех чётных чисел, кратных 3. Вот мой код на языке Python:

# Инициализируем счетчик четных чисел, кратных 3
count = 0

# Вводим первое число
n = int(input("Введите натуральное число или 0 для завершения: "))

# Пока число не равно 0, продолжаем вводить числа и проверять их
while n != 0:
  # Если число четное и кратно 3, увеличиваем счетчик на 1
  if n % 2 == 0 and n % 3 == 0:
    count += 1
  # Вводим следующее число
  n = int(input("Введите натуральное число или 0 для завершения: "))

# Выводим результат
print("Количество всех чётных чисел, кратных 3:", count)

Эта программа использует цикл while, чтобы считывать числа от пользователя, пока он не введет 0. Для каждого числа она проверяет, является ли оно четным и кратным 3, и если да, то увеличивает счетчик на 1. После выхода из цикла она выводит значение счетчика на экран. Это количество всех чётных чисел, кратных 3, во введенной последовательности.