21 lines
444 B
Plaintext
21 lines
444 B
Plaintext
Dim As Integer fact(12), suma, d, j
|
|
fact(0) = 1
|
|
For n As Integer = 1 To 11
|
|
fact(n) = fact(n-1) * n
|
|
Next n
|
|
For b As Integer = 9 To 12
|
|
Print "Los factoriones para base " & b & " son: "
|
|
For i As Integer = 1 To 1499999
|
|
suma = 0
|
|
j = i
|
|
While j > 0
|
|
d = j Mod b
|
|
suma += fact(d)
|
|
j \= b
|
|
Wend
|
|
If suma = i Then Print i & " ";
|
|
Next i
|
|
Print : Print
|
|
Next b
|
|
Sleep
|