produs'.pas

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

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