老游戏配乐:编写一个过程,求一个数的阶乘;
来源:百度文库 编辑:神马品牌网 时间:2024/05/10 08:33:18
program exam;
var a,b:longint;
procedure jc(x);
begin
if x<=b then begin
a:=a*x;jc(x+1);end;
end;
begin
readln(b);
a:=1;
jc(1);
writeln(a);
readln;
end.
这是Pascal程序.