Найти произведение четных чисел от 0 до n Pascal abc

Question

Найти произведение четных чисел от 0 до n Pascal abc

Comments

Ну если от 0 произведение четных то всегда 0 будет получаться...

---

А 0 нечетное же

---

Ахтунг! Пересмотрите решение, я исправил...

---

В коментариях...

Answer 1

Решено

program help;

var i,n:integer;

begin

readln(n);

for i := 1 to n do begin

   if i mod 2 = 0 then

       writeln(i);

end;

end.

*Вводишь число, получаешь все четные числа до него*

Comments

Эта программа просто выводит четные числа

---

А вот результат умножения всех четных чисел:

---

program help;var i,n,res:integer;beginreadln(n);for i := 1 to n do begin if i mod 2 = 0 then res:= res * iwriteln(res)end;end.

---

Вот теперь правильно!

---

Да блин!

---

ВОТ ПРАВИЛЬНЫЙ КОД:

---

program help;var i,n,res:integer;beginres := 1;readln(n);for i := 1 to n do begin if i mod 2 = 0 then res:= res * i;end;writeln(res)end.

---

все...