27 lines
444 B
ObjectPascal
27 lines
444 B
ObjectPascal
|
// "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>" - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
const n = 100000;
|
|||
|
|
|
|||
|
|
var primes: set of integer;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
primes := [2..n];
|
|||
|
|
|
|||
|
|
for var i:=2 to round(sqrt(n)) do
|
|||
|
|
begin
|
|||
|
|
if not (i in primes) then
|
|||
|
|
continue;
|
|||
|
|
var x := i*i;
|
|||
|
|
while x<=n do
|
|||
|
|
begin
|
|||
|
|
Exclude(primes,x);
|
|||
|
|
x += i;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
writeln('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> < ',n,':');
|
|||
|
|
writeln(primes);
|
|||
|
|
writeln;
|
|||
|
|
writeln('<27><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: ',Milliseconds/1000);
|
|||
|
|
end.
|
|||
|
|
|