Question

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 3, но не кратных 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число кратное 3, но не кратное 6. Количество чисел не превышает 1000. Введённые числа не превышают 30000. Программа должна вывести одно число - количество чисел, кратных 3, но не кратных 6. Входные данные: 3, 12, 24, 27 Выходные данные: 2

Answer 1

Видимо у вас в условии задачи ошибка. При данных входных данных, всего 1 число кратно 3, и не кратно 6 (27). Или вы считаете 3 тоже, то увы, это не число последовательности, а её размерность. Написал программу, учитывая, что выходные данные у вас должны быть 1.

var

 n,i,count:integer;

begin

 readln(n);

 count:=0;

 for i:=1 to n do

   begin

     readln(n);

     if (n mod 3 = 0) and (n mod 6 <> 0) then

       inc(count);

   end;

 writeln(count);

end.

Answer 2

Для решения этой задачи, вы можете написать программу на Python. Вот пример решения:

pythonCopy code
# Считываем количество чисел в последовательности
n = int(input())

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

# Считываем числа и проверяем каждое из них
for _ in range(n):
    num = int(input())
    if num % 3 == 0 and num % 6 != 0:
        count += 1

# Выводим результат
print(count)

Этот код сначала считывает количество чисел в последовательности, затем считывает сами числа и проверяет, кратны ли они 3, но не кратны 6. Если число удовлетворяет этому условию, счетчик увеличивается. В конце программа выводит количество чисел, соответствующих заданному условию.