reapeat until计算1累加到100的和

//reapeat until计算1累加到100的和

procedure TForm1.Button1Click(Sender: TObject); 
var
    i,sum:integer;
begin
     i:=1;
     sum:=0;
     repeat
         sum:=sum+i;
         i:=i+1;
     until i>100;
     showmessage('1ÀÛ¼Óµ½100µÄºÍΪ'+inttostr(sum));
end;

通过 Wiz 发布