从1到10的阶乘的和 pascal 语言 要函数和for循环 尽量有 有的话加财富
答案:2 悬赏:40
解决时间 2021-03-02 18:43
- 提问者网友：无心恋土
- 2021-03-01 18:06
谢
最佳答案
- 二级知识专家网友：晨与橙与城
- 2021-03-01 18:38
已调试好：
var i,sum:longint;
function fact(n:longint):longint;
var i,s:longint;
begin
fact:=1;
for i:=1 to n do
fact:=fact*i;
end;
begin
sum:=0;
for i:=1 to 10 do
sum:=sum+fact(i);
writeln(sum);
end.
var i,sum:longint;
function fact(n:longint):longint;
var i,s:longint;
begin
fact:=1;
for i:=1 to n do
fact:=fact*i;
end;
begin
sum:=0;
for i:=1 to 10 do
sum:=sum+fact(i);
writeln(sum);
end.
全部回答
- 1楼网友：承载所有颓废
- 2021-03-01 19:46
你说呢...
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯