Digit fifth powers: Difference between revisions
m
→{{header|FreeBASIC}}: fixed 2 errors in the code
m (→{{header|C++}}: performance enhancement) |
m (→{{header|FreeBASIC}}: fixed 2 errors in the code) |
||
Line 131:
dim as string ns = str(n)
dim as uinteger ret = 0
for i as ubyte =
ret += val(mid(ns,i,1))^5
next i
Line 139:
dim as uinteger i, sum = 0
for i =
if i = dig5(i) then
print i
Line 155:
194979
Their sum is 443839</pre>
==={{header|GW-BASIC}}===
<lang gwbasic>10 SUM! = 0
| |||