Strange plus numbers: Difference between revisions
→{{header|ALGOL 68}}
(Added Algol 68) |
|||
Line 47:
# considers numbers n where 100 < n < 500 #
PR read "primes.incl.a68" PR
[]BOOLprime = PRIMESIEVE 18; # note: PRIMESIEVE includes 0 in the sieve #
INT s count := 0;
FOR n FROM 101 TO 499 DO
|