Cod sursa(job #372398)

Utilizator crushackPopescu Silviu crushack Data 9 decembrie 2009 21:04:29
Problema Ciurul lui Eratosthenes Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.29 kb
Raporteaza aceasta sursa 
program ciur3;
 var i,n,j,nr:longint;
     ciur:array[1..2000000] of byte;
Begin
 write('n=');readln(n);
 for i:= 2 to n do
  if ciur[i] = 0 then begin
    nr:=nr+1;
    j:=i+i;
    while j<=n do begin
      ciur[j]:=1;
      j:=j+i;
    end;
  end;
 write(nr);
 readln;
end.