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

来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/09 04:39:29
设计程序,求S=1+(1+2)+(1+2+3)+...+(1+2+3+...+100)的值,用delphi程序各位大吓帮帮忙设计程序,求S=1+(1+2)+(1+2+3)+...+(1+2+3+...

设计程序,求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;