作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/29 20:33:58
pascal对给定的整数n(1小于等于n小于等于100),求下式的值
1+(1+2)+(1+2+3)+……+(1+2+3+……+n)
var n,i,s:longint;
begin
s:=0;
read(n);
for i:=1 to n do
s:=s+i*(n-i+1);
write(s);
end.