Munchausen numbers: Difference between revisions
→{{header|TI-83 BASIC}}: Section added
PatGarrett (talk | contribs) (→{{header|Fortran}}: Section added) |
PatGarrett (talk | contribs) (→{{header|TI-83 BASIC}}: Section added) |
||
Line 1,788:
<pre>1
3435</pre>
=={{header|TI-83 BASIC}}==
{{works with|TI-83 BASIC|TI-84Plus 2.55MP}}
{{trans|Fortran}}
<lang ti83b> For(I,1,5000)
0→S:I→K
For(J,1,4)
10^(4-J)→D
iPart(K/D)→N
remainder(K,D)→R
If N≠0:S+N^N→S
R→K
End
If S=I:Disp I
End </lang>
{{out}}
<pre>
1
3435
</pre>
Execution time: 15 min
=={{header|VBA}}==
| |||