Digit fifth powers: Difference between revisions

Content added Content deleted

Inline

@@ Line 578: / Line 578: @@
        ADD-DIGIT-POWER.
            COMPUTE POWER-SUM = POWER-SUM + DIGITS(DIGIT) ** 5.</lang>
+{{out}}
+<pre>  4150
+------ +
+</pre>
+=={{header|Comal}}==
+<lang comal>0010 FUNC sum5(n) CLOSED
+sum:=0
+WHILE n>0 DO sum:+(n MOD 10)^5;n:=n DIV 10
+RETURN sum
+ENDFUNC sum5
+//
+max:=9^5*6
+total:=0
+FOR i:=2 TO max DO
+IF i=sum5(i) THEN
+PRINT USING "######":i
+total:+i
+ENDIF
+ENDFOR i
+PRINT "------ +"
+PRINT USING "######":total
+END</lang>
 {{out}}
 <pre>  4150