Idoneal numbers: Difference between revisions
→{{header|Action!}}: Avoid unsigned comparison against -2...
(→{{header|Action!}}: Simplification - don't need a loop to find c) |
(→{{header|Action!}}: Avoid unsigned comparison against -2...) |
||
Line 29:
PROC Main()
CARD count, maxCount, n
BYTE idoneal
count = 0 maxCount = 65
n = 0
WHILE count < maxCount DO
n ==+ 1
idoneal = 1
a = 1
WHILE ( a + 2 ) <
b = a + 1
DO
| |||