急！！！解決問題馬上給分？（高斯定律）

Question

寫出類似以下“高斯定律”的結果代碼？（誰先搞定給誰高分）
1+2+3...+100=?

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  i,s:integer;
begin
  s:=0;
  for i:=1 to 100 do
  begin
    s:=s+i;
  end;
  Edit1.Text:=IntToStr(s);
  Form1.Caption:=IntToStr(s);
end;
end.

Answer 2

你这不是等差数列吗,公式Sn=(a1+an)n/2 
var
  i:Double;
begin
  i := (1+100)*100/2;
  ShowMessage(FloatToStr(i));
end;