?? a1.pls
字號(hào):
program pp;
var n,p:integer;
procedure p1(n:integer; var p:integer);
begin
if n<=1 then p:=1
else begin
call p1(n-1,p);
p:=n*p
end
end;
begin
call read(n);
call p1(n+2,p);
call write(p)
end.
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -