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

[Makcumqa]

Здраствуйте,помогите пожалуйста с задачкой.
Найти произведение всех чётных чисел от -100 до 100.

[Chudo4258]

P:=1;
for i:=-100 to 100 do
 if (i<>0) and (abs(i) mod 2=0) then P:=P*i;

[Егор527]

мне кажется так чуть легче будет.

P:=1;
for (i:=-100;i<=100;i=i+2)
  P:=P*i;

[Serebro]

Егор527!

В данном интервале есть число 0! Наверное, его не следует включать в произведение.

[Stilet]

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

А ничего что размеров переменной не хватит для таких чисел?
Впрочем сам алгоритм может выглядеть так:

MODULE Num;
IMPORT StdLog;

PROCEDURE do*;
VAR sum,n,k,e:INTEGER;
BEGIN
 StdLog.Clear;
 sum:=1;
 FOR k:=-10 TO 10 DO 
  IF (k#0)&((k MOD 2)=0) THEN sum:=sum*(k); END;
  StdLog.Int(k); 
 END;
 StdLog.Int(sum);
END do;
END Num.

[Chudo4258]

Сообщение от Makcumqa

Здраствуйте,помогите пожалуйста с задачкой.
Найти произведение всех чётных чисел от -100 до 100.

Эта задача наверно на "длинную арифметику", где каждая цифра числа записывается в массив.

1.jpg

2.jpg

[evg_m]

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

В этот список входит НОЛЬ и результат =0

[LeBron]

Задача не на длинную арифметику, а на нахождение ответа "0" Если бы было сказано, что ноль считать не надо - простенькая циклическая длинка с умножением длинного на короткое.

[yorik1984]

"Так как при делении 0 на 2 получается целое число, то 0 является чётным числом." цитата из Википедии.