test6.pl0

来自「pl0的几个小程序 老师给的 很简单 共享下」· PL0 代码 · 共 13 行

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.