展开全部
var
m:extended;
i,n:integer;
begin
readln(n);
m:=1;
for i:=2 to n do
m:=m*i;
writeln(m:0:0);
end.
m:extended;
i,n:integer;
begin
readln(n);
m:=1;
for i:=2 to n do
m:=m*i;
writeln(m:0:0);
end.
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
function fac(n:integer):real;
begin
if n=o
then fac:=1
else fac:=n*fac(n-1)
end;
begin
if n=o
then fac:=1
else fac:=n*fac(n-1)
end;
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
算N!就好了
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
easy task
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（2）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
