Cod sursa(job #271587)

Utilizator pasarilaPorumbel Valentin pasarila Data 5 martie 2009 16:22:31
Problema Ciurul lui Eratosthenes Scor 20
Compilator fpc Status done
Runda Arhiva educationala Marime 0.5 kb
program ciurul_lui_Eratostene;
var v1,v2:array[2..2000000] of longint;
    nr,i,j,prime:longint;
    f:text;
begin
prime:=0;
assign(f,'ciur.in');
reset(f);
readln(f,nr);
close(f);
for i:=2 to nr do
  v1[i]:=i;
for i:=2 to nr do
  begin
    if(v2[i]=0) then
      begin
        for j:=2 to nr do
          begin
            v2[i*j]:=1;
          end;
      end;
  end;
 for i:=2 to nr do
   begin
    if(v2[i]=0) then prime:=prime+1;
   end;
 assign(f,'ciur.out');
 rewrite(f);
 writeln(f,prime);
 close(f);
end.