level 9
幽惘兮
楼主
新人一枚,做题目时有一道题老是错误,却总找不出错。求改正![[乖]](/static/emoticons/u4e56.png)
const
n=255;
var
sieve,primes:set of 1..n;
next,j:integer;
begin
sieve:=[2..n];
primes:=[];
next:=2;
repeat
while not(next in sieve) do next:=next+1;
primes:= primes + [next];
j:=next;
while j<=n do
begin
sieve:= sieve – [j] ;
j:= j+next;
end;
until sieve= [] ;
for next:=2 to n do
if (next in primes) then write(next:4);
end.
2014年07月25日 10点07分
1
const
n=255;
var
sieve,primes:set of 1..n;
next,j:integer;
begin
sieve:=[2..n];
primes:=[];
next:=2;
repeat
while not(next in sieve) do next:=next+1;
primes:= primes + [next];
j:=next;
while j<=n do
begin
sieve:= sieve – [j] ;
j:= j+next;
end;
until sieve= [] ;
for next:=2 to n do
if (next in primes) then write(next:4);
end.