Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Ответ: 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.