楼上的写得不对啊
应该有两个循环。
function SumXXX:integer;
var
i,k:integer;
begin
Result:=0;
for i:=1 to 100 do
begin
for k:=1 to i do Result:=Result+k;
end;
end;
在按钮的Click事件中
edit1.text:=inttostr(sumxxx);
借楼上的代码改一下
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;
不会delphi
var sum=0
var s=0
for(i=1;i<=100;i++){
s+=i
sum+=s
}
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024