摘要： function pl(n,m:integer):integer; var p,i:integer; begin p:=1; for i:=1 to m do begin p:=p*n; n:=n-1; end; result:=p; end; function zh(n,m:integer):in 阅读全文