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

Ответы:

РУМИЯ ТУРЧЫНЕНКО

30-12-2013 09:42

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

Также наши пользователи интересуются:

Картинка с текстом вопроса от пользователя ДЕНИС ЛЕВИН

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Найти произведение четных чисел от -100 до 100 паскаль» от пользователя ДЕНИС ЛЕВИН в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!