Question

Найти произведение четных чисел от -100 до 100 паскаль

Answer 1

Ответ: 0
Т.к. среди чисел произведения будет встречен ноль (который является чётным числом), который всё и занулит.

Var
  i : Integer;
  m : Longint;
Begin
  m:=1;
  For i:=-100 to 100 do If not Odd(i) then m:=m*i;
  Writeln(m);
end.

Answer 2

Для нахождения произведения четных чисел от -100 до 100 на языке программирования Pascal, вы можете воспользоваться следующим кодом:

pascalCopy code
program MultiplyEvenNumbers;

var
  i: Integer;
  product: Int64;

begin
  product := 1;

  for i := -100 to 100 do
  begin
    if (i mod 2 = 0) then // Проверяем, является ли число четным
    begin
      product := product * i; // Умножаем четное число на текущий результат
    end;
  end;

  writeln('Произведение четных чисел от -100 до 100: ', product);
end.

Этот код начинает с инициализации переменной product значением 1, затем выполняет цикл от -100 до 100 и проверяет, является ли текущее число четным (проверка i mod 2 = 0). Если число четное, оно умножается на текущее значение product. В конце программы выводится произведение четных чисел.