Data update

Task/Increasing-gaps-between-consecutive-Niven-numbers/PascalABC.NET/increasing-gaps-between-consecutive-niven-numbers.pas

@@ -0,0 +1,37 @@
+function digitsSum(n, sum: int64): int64;
+begin
+  result := sum + 1;
+  while (n > 0) and (n mod 10 = 0) do
+  begin
+    result -= 9;
+    n := n div 10;
+  end;
+end;
+
+begin
+  var niven: int64 := 0;
+  var gap: int64 := 0;
+  var sum: int64 := 0;
+  var nivenIndex: int64 := 0;
+  var previous: int64 := 1;
+  var gapIndex: int64 := 1;
+
+  println('Gap index  Gap  Niven index  Niven number');
+
+  while gapIndex <= 32 do
+  begin
+    niven += 1;
+    sum := digitsSum(niven, sum);
+    if niven mod sum = 0 then
+    begin
+      if niven > previous + gap then
+      begin
+        gap := niven - previous;
+        writeln(gapIndex:9, gap:5, nivenIndex:13, previous:14);
+        gapIndex += 1;
+      end;
+      previous := niven;
+      nivenIndex += 1;
+    end;
+  end;
+end.