function Isqrt(N: Natural) return Natural is
R: Natural; begin
R := 0; loop --# assert R * R <= N; exitwhen N - R * R < 2 * R + 1;
R := R + 1; endloop; return R; end Isqrt;
end Sqrt;
Messung V0.5 in Prozent
¤ Dauer der Verarbeitung: 0.10 Sekunden
(vorverarbeitet am 2026-05-01)
¤
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung und die Messung sind noch experimentell.