Idoneal numbers: Difference between revisions
→{{header|ALGOL 68}}: tweak
(Added Action!) |
(→{{header|ALGOL 68}}: tweak) |
||
Line 98:
FOR n WHILE count < max count DO
BOOL idoneal := TRUE;
FOR a TO n - 2 WHILE
FOR b FROM a + 1 TO n - 1
WHILE INT ab = a * b;
( ab
DO
FOR c FROM b + 1 TO n
| |||