Digit fifth powers: Difference between revisions
Add PILOT
Not a robot (talk | contribs) (Add MAD) |
Not a robot (talk | contribs) (Add PILOT) |
||
Line 1,018:
4150 + 4151 + 54748 + 92727 + 93084 + 194979 = 443839
</pre>
=={{header|PILOT}}==
<lang pilot>C :max=9*(9*(9*(9*(9*6))))
:sum=0
:n=2
*number
C :dps=0
:cur=n
*digit
C :next=cur/10
:d=cur-(next*10)
:dps=dps+d*(d*(d*(d*#d)))
:cur=next
J (cur>0):*digit
T (dps=n):#n
C (dps=n):sum=sum+n
:n=n+1
J (n<max):*number
T :Total: #sum
E :</lang>
{{out}}
<pre>4150
4151
54748
92727
93084
194979
Total: 443839</pre>
=={{header|PL/M}}==
| |||