test6.pl0

pl0的几个小程序 老师给的 很简单 共享下

var  m,n;
procedure p;
var i;
begin
 i:=n;
 if n>1 then 
  begin n:=n-1;  call p end;
  m:=m*i
 end;
begin
 m:=1;  read(n); call p; write(m)
end.