Data commit

Task/Loops-Increment-loop-index-within-loop-body/Delphi/loops-increment-loop-index-within-loop-body.delphi

@@ -0,0 +1,55 @@
+program Increment_loop_index_within_loop_body;
+
+{$APPTYPE CONSOLE}
+
+uses
+  System.SysUtils;
+
+function IsPrime(const a: UInt64): Boolean;
+var
+  d: UInt64;
+begin
+  if (a < 2) then
+    exit(False);
+
+  if (a mod 2) = 0 then
+    exit(a = 2);
+
+  if (a mod 3) = 0 then
+    exit(a = 3);
+
+  d := 5;
+
+  while (d * d <= a) do
+  begin
+    if (a mod d = 0) then
+      Exit(false);
+    inc(d, 2);
+
+    if (a mod d = 0) then
+      Exit(false);
+    inc(d, 4);
+  end;
+
+  Result := True;
+end;
+
+var
+  i, n: UInt64;
+
+begin
+  FormatSettings.ThousandSeparator:= ',';
+  i := 42;
+  n := 0;
+  while (n < 42) do
+  begin
+    if (isPrime(i)) then
+    begin
+      inc(n);
+      Writeln('n = ', n: -20, ' ', floattostrF(i, ffNumber, 20,0):20);
+      i := 2 * i - 1;
+    end;
+    inc(i);
+  end;
+  readln;
+end.