Delphi-Quellcode:
var s,i,o:integer;
begin
S:=1010;
i:=0;
O:=79041;
while s<O do
begin
if i=0 then
begin
s:=1010 ;
i:=i+1;
end
else
begin
s:=s+(20*i)+1010 ;
i:=i+1;
end;
end;
label1.caption:=inttostr(i);
end;
Ich habe alles nochmal überdacht und bin mit diesem queltext zu folgendem ergebnis gekommen: 53.
Nah dran aber nicht perfekt ich könnte i natürlich einfach um 1 vermindern bevor ich es ausgebe aber mein Queltext erscheint mir doch als logisch.
wenn ich jedoch S ausgeben will dann müsste ja normalerweisse 79040 ausgegebn werden aber das tut er nicht.