Question

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

Answer 1

Const
N = 30;
var
a:array [1..N] of longint;
I, j, k: longint;
begin 
  for i:=1 to N do
      Readln(a[i]);
      k:=0
      for i:=0 to N do
      begin
         if (a[i]mod6=0) or (a[i]mod11=0) and (a[i]<>0) then
         inc(k);
      writeln(k)

Answer 2

Конечно! Вот пример программы на языке Python, который решает задачу:

pythonCopy code
count = 0

while True:
    num = int(input("Введите число: "))
    if num == 0:
        break
    if num % 6 == 0 or num % 11 == 0:
        count += 1

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

Программа начинает счетчик count с нуля. Затем она входит в цикл while True, который будет выполняться до тех пор, пока не будет введено число 0. Внутри цикла программа считывает число от пользователя, проверяет, кратно ли оно 6 или 11, и если да, то увеличивает счетчик count на 1.

После выхода из цикла программа выводит значение count, которое представляет количество чисел, кратных 6 или 11, введенных пользователем.