produs.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 11 行

program produs;
{p=1*3*5*..*(2*n-1)}
var p,n,i:integer;
begin
write('n= ');
readln(n);
p:=1;
for i:=1 to n do
  p:=p*(2*i-1);
writeln('p= ',p);
end.