Найти произведение четных чисел от -100 до 100 паскаль
Найти произведение четных чисел от -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.
Не нашли ответ?
Похожие вопросы