Additive primes: Difference between revisions
Content added Content deleted
(Added Algol W) |
m (→{{header|ALGOL W}}: Doh! Range is < 500, not <= 500) |
||
| Line 40: | Line 40: | ||
% find the primes that are additive primes % |
% find the primes that are additive primes % |
||
aCount := 0; |
aCount := 0; |
||
for i := 1 until MAX_NUMBER do begin |
for i := 1 until MAX_NUMBER - 1 do begin |
||
if prime( i ) then begin |
if prime( i ) then begin |
||
integer dSum, v; |
integer dSum, v; |
||