Question

Знайти суму цілих чисел від 20 до 30 програмний код в лазарус
СРОЧНО ❗❗❗❗❗❗❗❗❗

Answer 1

Ответ:

procedure TForm1.Button1Click(Sender: TObject);

var i,s:integer;

begin

S := 0;

for i := 20 to 30 do

S := S + i;

Label1.Caption := IntToStr(S);

end;