von 1 bis 10 zählen und ergbnis anzeigen lassen

[Uncle Cracker]

Stimmt, hätte ich wohl früher mal den Taschenrechner nehmen sollen um das Ergebniss zu überprüfen

So sieht's nun ganz richtig aus:

Delphi-Quellcode:

var i,a:integer;
begin
i:=1; a:=0;
while i<=10 do begin
a:=a+i;
i:=i+1;
end;
label1.caption:=InttoStr(a);
end;