Question

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

Answer 1

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  ReadSeqIntegerWhile(t->t<>0).Where(t->Abs(t) mod 14=0).Count.Println
end.

Пример
32 28 -100 49 -14 52 0
2

Answer 2

Var a,k:integer;
begin
write('Введите число: ');
readln (a);
while a <> 0 do
begin
if (abs(a mod 2) = 0) and (abs(a mod 7) = 0) then k:=k+1;
write('Введите число: ');
readln (a)
end;
writeln('Количество чётных чисел кратных 7 равно: ',k)
end.

Answer 3

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

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

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

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

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