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