Narcissistic decimal number: Difference between revisions
Content added Content deleted
Line 761: | Line 761: | ||
0 1 2 3 4 5 6 7 8 9 153 370 371 407 1634 8208 9474 54748 92727 93084 548834 1741725 4210818 9800817 9926315 |
0 1 2 3 4 5 6 7 8 9 153 370 371 407 1634 8208 9474 54748 92727 93084 548834 1741725 4210818 9800817 9926315 |
||
</pre> |
</pre> |
||
=={{header|EasyLang}}== |
|||
<syntaxhighlight lang="easylang"> |
|||
while cnt < 25 |
|||
s$ = n |
|||
ln = len s$ |
|||
s = 0 |
|||
for i to ln |
|||
s += pow number substr s$ i 1 ln |
|||
. |
|||
if s = n |
|||
print s |
|||
cnt += 1 |
|||
. |
|||
n += 1 |
|||
. |
|||
</syntaxhighlight> |
|||
==={{header|FreeBASIC}}=== |
==={{header|FreeBASIC}}=== |