Reakce na odpověď

Máš to nějaké pomalé... Java 1.6.0, stará E6300.

Pomale to ma proto, ze decrementuje primo ten extended. Pokud to, stejne jako ty, pretypuje na LongInt (v Delphi na Int64), pak to trva stejne jako u tebe

var
  prvniCas, druhyCas: Cardinal;
  i: Int64;
begin
  prvniCas := GetTickCount;
  i := Trunc(Power(10, 9));
  repeat
      Dec(i);
  until i=0;
  druhyCas := GetTickCount;
  writeln(inttostr(druhyCas-prvniCas));
  Readln;
end.

Zkousel jsem, jestli se nejak projevi Do While a Repeat - Until a ne

Delphi - Důvěryhodnost GetTickCount