Написать двойной факториал Pascal. Дано натуральное чилсо N. Вычислить n. 1*3*5 ... n, n...

Question

Написать двойной факториал Pascal. Дано натуральное чилсо N. Вычислить n.
1*3*5 ... n, n - нечетн
2*4*6 ... n,n - четн

Comments

условие указано верно? если n-четное, но в произведении 1*3*5*... (то есть произведение всех нечетных чисел) никак последний множитель не сможет получиться четным...

---

Поменял, быстрее пожалуйста.

Answer 1

Program z;
var n,p,i:integer;
begin
write('n=');
readln(n);
p:=1;
if n mod 2=1 then i:=1 else i:=2;
while i<=n do <br>begin
p:=p*i;
i:=i+2;
end;
writeln(n,'!!=',p);
end.