设计程序,求S=1+(1+2)+(1+2+3)+...+(1+2+3+...+100)的值 ,用delphi程序各位大吓 帮帮忙

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/09 09:58:15

设计程序,求S=1+(1+2)+(1+2+3)+...+(1+2+3+...+100)的值 ,用delphi程序各位大吓 帮帮忙
设计程序,求S=1+(1+2)+(1+2+3)+...+(1+2+3+...+100)的值 ,用delphi程序
各位大吓 帮帮忙

设计程序,求S=1+(1+2)+(1+2+3)+...+(1+2+3+...+100)的值 ,用delphi程序各位大吓 帮帮忙
借楼上的代码改一下
producer xxxxx;
var s,sum,i:integer;
begin
sum:=0;
s:=0;
for i:=1 to 100 do
begin
s:=s+i;
sum:=sum+s;
end;
showmessage('sum='+inttostr(sum));
end;