Question

Разработать программу, которая определяет количество чисел, которые кратны 7. Числа вводятся клавиатуры. Количество их неизвестно. Замыкает последовательность 0.

Answer 1

Программа написана на PascalABC.NET

В программе используется правило, что ноль не кратен ни одному числу.

//ниже код:

program kratnost;

var a, b, i: integer;

begin   b:=1;   while b <> 0 do     begin       read(b);       if b mod 7 = 0 then         inc(a);     end;        writeln('Ответ: ', a-1); end.

Answer 2

Вы можете использовать цикл для ввода чисел с клавиатуры и проверки, кратно ли каждое число 7. Цикл будет выполняться до тех пор, пока не будет введен 0, замыкающий последовательность. Вот пример программы на языке Python, который реализует это:

pythonCopy code
count = 0  # счетчик чисел, кратных 7

while True:
    num = int(input("Введите число (0 для завершения): "))
    
    if num == 0:
        break  # выход из цикла, если введен 0
    
    if num % 7 == 0:
        count += 1

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

В этой программе используется бесконечный цикл while True, который будет выполняться до тех пор, пока не будет достигнуто условие выхода (break). Внутри цикла программа запрашивает число с клавиатуры и проверяет, кратно ли оно 7. Если число равно 0, цикл прерывается и программа выводит количество чисел, кратных 7.