25 lines
464 B
Plaintext
25 lines
464 B
Plaintext
Declare main()
|
|
|
|
If OpenConsole() : main() : Else : End 1 : EndIf
|
|
Input() : End
|
|
|
|
Procedure main()
|
|
Define.i n,b,d,i,j,sum
|
|
Dim fact.i(12)
|
|
|
|
fact(0)=1
|
|
For n=1 To 11 : fact(n)=fact(n-1)*n : Next
|
|
|
|
For b=9 To 12
|
|
PrintN("The factorions for base "+Str(b)+" are: ")
|
|
For i=1 To 1500000-1
|
|
sum=0 : j=i
|
|
While j>0
|
|
d=j%b : sum+fact(d) : j/b
|
|
Wend
|
|
If sum=i : Print(Str(i)+" ") : EndIf
|
|
Next
|
|
Print(~"\n\n")
|
|
Next
|
|
EndProcedure
|