Munchausen numbers: Difference between revisions
Content added Content deleted
(Added XPL0 example.) |
|||
Line 2,892: | Line 2,892: | ||
<pre> |
<pre> |
||
The Munchausen numbers <= 5000 are: |
The Munchausen numbers <= 5000 are: |
||
1 |
|||
3435 |
|||
</pre> |
|||
=={{header|XPL0}}== |
|||
The digits 6, 7, 8 and 9 can't occur because 6^6 = 46656, which is beyond 5000. |
|||
<lang XPL0>int Pow, A, B, C, D, N; |
|||
[Pow:= [0, 1, 4, 27, 256, 3125]; |
|||
for A:= 0 to 5 do |
|||
for B:= 0 to 5 do |
|||
for C:= 0 to 5 do |
|||
for D:= 0 to 5 do |
|||
[N:= A*1000 + B*100 + C*10 + D; |
|||
if Pow(A) + Pow(B) + Pow(C) + Pow(D) = N then |
|||
if N>=1 & N<= 5000 then |
|||
[IntOut(0, N); CrLf(0)]; |
|||
]; |
|||
]</lang> |
|||
{{out}} |
|||
<pre> |
|||
1 |
1 |
||
3435 |
3435 |