Perfect numbers: Difference between revisions
Perfect numbers en True BASIC
m (→{{header|Phix}}: added syntax colouring the hard way) |
(Perfect numbers en True BASIC) |
||
Line 900:
2040 LET PERFECT=SUM=N
2050 RETURN</lang>
==={{header|True BASIC}}===
<lang basic>
FUNCTION perf(n)
IF n < 2 or ramainder(n,2) = 1 then LET perf = 0
LET sum = 0
FOR i = 1 to n-1
IF remainder(n,i) = 0 then LET sum = sum+i
NEXT i
IF sum = n then
LET perf = 1
ELSE
LET perf = 0
END IF
END FUNCTION
PRINT "Los primeros 5 números perfectos son:"
FOR i = 1 to 33550336
IF perf(i) = 1 then PRINT i; " ";
NEXT i
PRINT
PRINT "Presione cualquier tecla para salir"
END
</lang>
=={{header|BBC BASIC}}==
| |||