Упростить алгоритм Опции

[Mikola]

Кто-нибудь поможет упрстить алгоритм вывода всех простых исел от 1 до N...(преподу не понравилось, как тут решено, она говорит, надо как-то через корень N )

Код

uses crt;
var i,n:integer;
    f:boolean;
    j:integer;
begin
clrscr;
f:=true;
  write('vvedite chislo n = ');
    readln (n);
for i:=1 to n do
begin
  f:=true;
  for j:=2 to i-1 do
    if i mod j = 0
       then f:=false;
  if f
     then write (i,'  ');
end;
readln
end.

Сообщение отредактировано: volvo - 7.06.2006 19:28