Как быстро найти простые числа?

[Serge_Bliznykov]

Сообщение от gromdel

а я до 10000

даже меньше - до 1000

Сообщение от type_Oleg

Только антивирус отключить предварительно.

простите, не понял шутку - а при чём здесь антивирус?

[type_Oleg]

Сообщение от Serge_Bliznykov

простите, не понял шутку - а при чём здесь антивирус?

У меня было такое - вот ссыла
Я правда не отключал, просто назначил антивиру исключения.

[Serge_Bliznykov]

[offtop]Теперь понял к чему относилось ваше замечание.
но Вы, похоже, единственный, у кого была такая проблема.
Может быть, просто не нужно пользоваться AVAST?

[SASFM]

Я сам сделал следующим образом:

var i,j,kol:integer;
    b:boolean;
begin
  kol:=4;//2,3,5,7
  i:=9;
    while kol<10000 do
      begin
        i:=i+2;
        j:=1;
        while j<sqrt(i) do
        begin
        j:=j+1;
          b:=i mod j = 0;
          if b=true then break;
        end;        
        if b=false then
            begin
              kol:=kol+1;
              write(i,' ');
            end;
      end;
end.

[Dekay]

Чаво?
121. Не делится ни на одно число от 3 до 9. Но оно не простое.

[SASFM]

Сообщение от Dekay

Чаво?
121. Не делится ни на одно число от 3 до 9. Но оно не простое.

Не понял.

[SASFM]

Dekay а где тут 121?

[Dekay]

Последний раз редактировалось SASFM; Сегодня в 20:38.

Сегодня, 20:30 #15
Dekay
Пользователь

Еще вопросы?

[SASFM]

Спасибо что сказал.

[Plague]

нельзя применять такую конструкцию

while j<sqrt(i) do

надо писать так

while j*j<i do

так как вычисление корня выполняется на каждом шаге цикла.