作业帮 > 英语 > 作业

pascal对给定的整数n(1大于等于n小于等于100),求下列式值.

来源:学生作业帮 编辑:拍题作业网作业帮 分类:英语作业 时间:2024/04/25 23:44:06
pascal对给定的整数n(1大于等于n小于等于100),求下列式值.
1+(1+2)+(1+2+3)……+(1+2+3+…+n)
var
i,j,n:integer;
ans:longint;
sum:array[0..101] of integer;
begin
read(n);
fillchar(sum,sizeof(sum),0);
for i:=1 to n do
sum[i]:=sum[i-1]+i;
sum:=0
for i:=1 to n do
ans:=ans+sum[i];
write(ans);
end.