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

Question

Информатика

Хриса

24 февраля, 13:25

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

+4

Ответы (1)

Знаете ответ на вопрос?

Симона · 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.