Question

Вводится последовательность из 15 целых чисел. Найти произведение четных из них.

Answer 1

Var a:array[1..15] of integer;
i,b: integer;
begin
b:=1;
for i:=1 to 15 do readln(a[i]);
for i:=1 to 15 do if a[i] mod 2 =0 then b:=b*a[i];
writeln(b);
end.

Answer 2

Для решения этой задачи вам потребуется использовать цикл `for` для итерации по каждому числу в последовательности. В каждой итерации, вы проверите, является ли число четным, и если это так, то умножите его на текущее произведение.

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

# Инициализируем переменную для хранения произведения четных чисел
product = 1

# Вводим последовательность из 15 целых чисел
numbers = [int(input("Введите число: ")) for _ in range(15)]

# Итерируемся по каждому числу в последовательности
for num in numbers:
   # Если число четное, умножаем его на текущее произведение
   if num % 2 == 0:
       product *= num

print("Произведение четных чисел: ", product)

В этом коде мы используем список сгенерированных чисел для итерации. Это делается с помощью генератора списка, который использует функцию `input` для получения чисел от пользователя. Затем мы проверяем, является ли каждое число четным, сравнивая его с остатком от деления на 2. Если число четное, мы умножаем его на текущее произведение. В конце мы выводим полученное произведение.

Пожалуйста, учтите, что это решение предполагает, что пользователь вводит корректные целые числа. Если есть вероятность, что пользователь может ввести некорректные данные, вам следует добавить проверки на валидность ввода.