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

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/29 05:11:38
设计程序,求S=1+(1+2)+(1+2+3)+...+(1+2+3+...+100)的值 ,用delphi程序各位大吓 帮帮忙
xRn0~XT4N67ۉaMB2UAbBLn vU^&i$e}|ӱ'|v>Y۳lq.qa;?eaYC{|bscWgș.i }uS;]%q/rTuF9I1ue=v[|3*cOHxExsF)7BB$!422JI 懒"qFB~j <  (D(D_SY[MohVϛSS|y~xuYΛQǗUgwzgӁ;dQ Q ɢj#P \mz닜_Yq0ZTwMBko\˺NJ

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