罗阳高速电话:编写一个过程,求一个数的阶乘;
来源:百度文库 编辑:查人人中国名人网 时间:2024/06/01 12:12:24
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程序.