Munchausen numbers: Difference between revisions
added Easylang
m (→{{header|Wren}}: Changed to Wren S/H and removed an unnecessary line.) |
(added Easylang) |
||
Line 1,073:
=={{header|Delphi}}==
See [https://rosettacode.org/wiki/Munchausen_numbers#Pascal Pascal].
=={{header|EasyLang}}==
<syntaxhighlight>
for i = 1 to 5000
sum = 0
n = i
while n > 0
dig = n mod 10
sum += pow dig dig
n = n div 10
.
if sum = i
print i
.
.
</syntaxhighlight>
=={{header|Elixir}}==
| |||