18 lines
466 B
Plaintext
18 lines
466 B
Plaintext
Dim rd(7) As String = {"22", "333", "4444", "55555", "666666", "7777777", "88888888", "999999999"}
|
|
|
|
For n As Integer = 2 To 9
|
|
Dim cont As Integer = 0
|
|
Dim j As Uinteger = 3
|
|
|
|
Print Using !"\nFirst 10 super-# numbers:"; n
|
|
Do
|
|
Dim k As Ulongint = n * (j ^ n)
|
|
Dim ix As Uinteger = Instr(Str(k), rd(n - 2))
|
|
If ix > 0 Then
|
|
cont += 1
|
|
Print j; " " ;
|
|
End If
|
|
j += 1
|
|
Loop Until cont = 10
|
|
Next n
|