Data update

Task/Loops-Increment-loop-index-within-loop-body/EasyLang/loops-increment-loop-index-within-loop-body.easy

@@ -1,13 +1,10 @@
 fastfunc isprim num .
-   if num mod 2 = 0 and num > 2
-      return 0
-   .
-   i = 3
+   i = 2
    while i <= sqrt num
       if num mod i = 0
          return 0
       .
-      i += 2
+      i += 1
    .
    return 1
 .

Task/Loops-Increment-loop-index-within-loop-body/PascalABC.NET/loops-increment-loop-index-within-loop-body.pas

@@ -0,0 +1,17 @@
+function IsPrime(n: BigInteger)
+  := (2..n.Sqrt.Round).All(x -> n mod x <> 0);
+
+begin
+  var i := 1;
+  var n := 42bi;
+  while i <= 42 do
+  begin
+    if IsPrime(n) then
+    begin
+      Println($'{i,3} {n,15}');
+      i += 1;
+      n += n - 1;
+    end;
+    n += 1;
+  end;
+end.