Find squares n where n+1 is prime: Difference between revisions
Content added Content deleted
(Added PL/M) |
m (→{{header|PL/M}}: the inevitable type...) |
||
| Line 929: | Line 929: | ||
/* TASK */ |
/* TASK */ |
||
/* |
/* OTHER THAN 1, THE NUMBERS MUST BE EVEN */ |
||
IF IS$PRIME( 2 /* I.E.: ( 1 * 1 ) + 1 */ ) THEN DO; |
IF IS$PRIME( 2 /* I.E.: ( 1 * 1 ) + 1 */ ) THEN DO; |
||
CALL PR$CHAR( ' ' ); |
CALL PR$CHAR( ' ' ); |
||