28 lines
656 B
ObjectPascal
28 lines
656 B
ObjectPascal
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.
|