pascal 求s=1!+2!+3!……+10!
1个回答
展开全部
program t1;
procedure t( x:integer; var n:integer);
var i:integer;
begin
for i:=2 to x do
n:=n*i;
end;
var
s,i,n:integer;
begin
for i:=1 to 10 do
begin
t(i,n);
s:=s+n;
n:=1;
end;
writeln(s);
readln;
end.
(悬赏分高点吧)
procedure t( x:integer; var n:integer);
var i:integer;
begin
for i:=2 to x do
n:=n*i;
end;
var
s,i,n:integer;
begin
for i:=1 to 10 do
begin
t(i,n);
s:=s+n;
n:=1;
end;
writeln(s);
readln;
end.
(悬赏分高点吧)
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
华瑞RAE一级代理商
2024-04-11 广告
Minimax 电商平台4是我们广州江腾智能科技有限公司推出的一款高端智能机器人。它集合了先进的人工智能技术，具备强大的学习和适应能力，可以根据不同环境进行自我优化。Minimax 电商平台4在多个领域都有广泛应用，如智能家居、医疗辅助、工...
点击进入详情页
本回答由华瑞RAE一级代理商提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
