Question

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

Answer 1

uses crt; var i,n,k:integer; a:array[1..100] of integer; begin writeln('введите числа последовательности. Окончанием ввода будет число 0'); i:=0; n:=0; repeat i:=i+1; n:=n+1; read(a[i]); write(' '); until (a[i]=0) or (i>1000); writeln; k:=0; writeln('Последовательность:'); for i:=1 to n-1 do begin write('a[',i,']=',a[i],' '); if ((a[i] mod 2)=0) and ((a[i] mod 7)=0) then k:=k+1; end; writeln('кол-во целых чётных чисел кратных 7 - ',k); end.

Answer 2

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

pythonCopy code
count = 0  # переменная для хранения количества нечётных чисел, кратных 7

while True:
    number = int(input("Введите число: "))
    
    if number == 0:
        break
    
    if number % 2 != 0 and number % 7 == 0:
        count += 1

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

Эта программа запрашивает числа у пользователя до тех пор, пока не будет введен 0. При каждой итерации она проверяет, является ли число нечётным и кратным 7, и если это условие выполняется, увеличивает счётчик count на 1. В конце программа выводит количество нечётных чисел, кратных 7.