Составить программу Паскаль, которая находит произведение n-нечётных чисел

Question

Составить программу Паскаль, которая находит произведение n-нечётных чисел

Comments

Откуда берут нечётные числа?

---

Нам, если честно, точно не сказали. Но вроде как от 1 до 13 (может и больше)

---

Циклы проходили?

---

Да

Answer 1

var i,p: integer;

begin

p:=1;

for i:=1 to 13 do

if i mod 2 <> 0 then p:=p*i;

write (p)

end.

Comments

Спасибо