Factorions: Difference between revisions
no edit summary
Alextretyak (talk | contribs) (Added 11l) |
No edit summary |
||
Line 906:
1 2
</pre>
=={{header|PureBasic}}==
{{trans|C}}
<lang PureBasic>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</lang>
{{out}}
<pre>The factorions for base 9 are:
1 2 41282
The factorions for base 10 are:
1 2 145 40585
The factorions for base 11 are:
1 2 26 48 40472
The factorions for base 12 are:
1 2 </pre>
=={{header|Python}}==
| |||