Question

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 3, но не кратных 2. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода последовательности, и в последовательность не входит). Гарантируется, что в последовательности имеется хотя бы одно число кратное 3 и при этом не кратное 2. Программа должна вывести одно число: количество чисел, кратных 3, но не кратных 2.

Answer 1

Ответ:

program z1;

var a,k: integer;

begin  

k:=0;

repeat

read(a);

if (a mod 3 = 0) and (a mod 2 <> 0) then k:=k+1

until a=0;

writeln (k)

end.

Объяснение:

Цикл с постусловием (прекращение цикла, при числе равном 0):

1) ввод числа

2) проверка условия

Вывод количества чисел

Answer 2

Вы можете написать такую программу на Python. Вот пример:

pythonCopy code
count = 0  # Инициализируем счетчик

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

print("Количество чисел, кратных 3, но не кратных 2:", count)

Эта программа будет продолжать запрашивать натуральные числа до тех пор, пока не будет введен 0, и при этом увеличивать счетчик, если число соответствует вашему условию. После окончания ввода она выведет количество таких чисел.