Perfect numbers: Difference between revisions
Added ZX81 BASIC
(Added ZX81 BASIC) |
|||
Line 404:
END IF
END FUNCTION</lang>
==={{header|Sinclair ZX81 BASIC}}===
Call this subroutine and it will (eventually) return <tt>PERFECT</tt> = 1 if <tt>N</tt> is perfect or <tt>PERFECT</tt> = 0 if it is not.
<lang basic>2000 LET SUM=0
2010 FOR F=1 TO N-1
2020 IF N/F=INT (N/F) THEN LET SUM=SUM+F
2030 NEXT F
2040 LET PERFECT=SUM=N
2050 RETURN</lang>
=={{header|BBC BASIC}}==
| |||