// "Решето Эратосфена" - вычисление простых чисел
const n = 100000;

var primes: set of integer;

begin
 primes := [2..n];
 
 for var i:=2 to round(sqrt(n)) do
 if i in primes then
 begin
 var x := 2*i;
 while x<=n do
 begin
 Exclude(primes,x);
 x += i;
 end;
 end;

 writeln('Простые числа < ',n,':');
 writeln(primes);
 writeln;
 writeln('Время вычисления: ',Milliseconds/1000);
end.


 Похожие публикации
2015-10-06 • Просмотров [ 237 ]