составьте алгоритм нахождения произведения всех четных чисел от 0 до 100

Question

составьте алгоритм нахождения произведения всех четных чисел от 0 до 100

Comments

Можно решение на PascalABC дать?

---

да

---

по идее произведении должно ровняться нулю.

---

так как первое чётное число ноль, все следующие числа будут умножаться на ноль.

Answer 1

Программа на Pascal выглядит так:

Program Product;
Var i: Integer;
r: LongInt;
Beginr := 1;
For i := 0 To 100 Do
If i Mod 2 = 0 Then
r := r * i;
WriteLn('Результат: ', r);
ReadLn;
End.

Но так как нуль - тоже чётное, то всё произведение будет равно 0.

Comments

почему у тебя от 0 до 50?

---

Опечатка, извините.