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