Вычислить 1+2+3+4+.+n

Californication

Вычислить 1+2+3+4+...+n
3 ответа

Californication

procedure TForm1.Button1Click(Sender: TObject);
var
a:Integer;
b:Integer;
c:Integer;
begin
b:=0;
c:=StrToInt(Edit1.Text);
for a:=0 to c do
b:=b+a;
Edit2.Text:=IntToStr(b);
end;
вот, думаю едиты и кнопку на форму сам кинешь


Californication

Спасибо


Californication

Californication, пожалуйста