用delphi语言编写的 输入一个数n，计算1~n之间的平方和

Question

如题所述

Answer 1

直接给你贴代码，这个很简单的：

procedure TForm1.btnOKClick(Sender: TObject);
var
v_Index,N,Sum:Integer;
begin
N := StrToIntDef(Edit1.Text,0);
Sum := 0;
for v_Index := 1 to N do
begin
Sum := Sum + v_Index * v_Index;
end;
ShowMessage('1~' + IntToStr(N) + '平方和为:' + IntToStr(Sum));
end;追问

兄弟在帮我写一道谢谢了，，，，，，用delphi语言..输入两个数m，n，求这两个数之间能被2整除的数，并添加到列表框中