Question

Напишите программу, которая в последовательности натуральных чисел определяет количество всех чётных чисел, кратных 9. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0(0-1000). Введённые числа не превышают 30000. Программа должна вывести одно число: количество всех четных чисел, кратных 9. Сделать с помощью массива.Пример работы программы:Входные данные:27241822360Выходные данные:2​

Answer 1

c = 0

while True:

n = int(input())

if n % 9 == 0 and n % 2 == 0:

c += 1

print(c)

Answer 2

Pascal

var

 a:array of integer;

 i, n:integer;

begin

 writeln('введите числа:'); n:=1; i:=0;

 while true do begin

   readln(n);

   if n<>0 then begin  

     setlength(a, length(a)+1);

     a[length(a)-1]:=n;

     if (n mod 2 = 0) and (n mod 9 = 0) then

       inc(i)

   end

   else

     break

 end;

 writeln('------------------');

 writeln(i);

end.

Answer 3

Программа должна считывать последовательность натуральных чисел с клавиатуры до тех пор, пока не будет введено число 0. Затем программа должна определить количество всех четных чисел, кратных 9, в этой последовательности.

Для решения этой задачи можно использовать массив. Нам нужно подсчитать количество чисел, поэтому создадим переменную count и инициализируем ее нулем. Также создадим массив, в котором будем хранить все введенные числа.

count = 0
numbers = []

# Считываем числа и добавляем их в массив, пока не будет введен 0
while True:
    num = int(input("Введите число (0 для завершения): "))
    if num == 0:
        break
    numbers.append(num)

# Перебираем все числа из массива и проверяем, являются ли они четными и кратными 9
for num in numbers:
    if num % 2 == 0 and num % 9 == 0:
        count += 1

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

Пример работы программы: ``` Введите число (0 для завершения): 27 Введите число (0 для завершения): 24 Введите число (0 для завершения): 18 Введите число (0 для завершения): 22 Введите число (0 для завершения): 36 Введите число (0 для завершения): 0 Количество четных чисел, кратных 9: 2 ```

В данном примере введена последовательность чисел: 27, 24, 18, 22, 36. Из них только числа 18 и 36 являются четными и кратными 9, поэтому программа выводит результат 2.