Question

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

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
begin
p:=p*i;
i:=i+2;
end;
writeln(n,'!!=',p);
end.