Data update

Task/Gapful-numbers/PascalABC.NET/gapful-numbers.pas

@@ -0,0 +1,27 @@
+function IsGapful(n: integer): boolean;
+begin
+  var first := n.ToString[1].ToDigit;
+  var num := first * 10 + n mod 10;
+  Result := n.Divs(num);
+end;
+
+function FindGapful(from,n: integer): List<integer>;
+begin
+  Result := new List<integer>;
+  var i := from;
+  while Result.Count < n do
+  begin
+    if IsGapful(i) then
+      Result.Add(i);
+    i += 1
+  end;
+end;
+
+begin
+  Println('First 30 gapful numbers starting at 100:');
+  FindGapful(100,30).Println;
+  Println('First 15 gapful numbers starting at 1,000,000:');
+  FindGapful(1000000,15).Println;
+  Println('First 10 gapful numbers starting at 1,000,000,000:');
+  FindGapful(1000000000,10).Println;
+end.