Cod sursa(job #899109)

Utilizator mada0222Tomus Madalina mada0222 Data 28 februarie 2013 12:57:43
Problema Ciurul lui Eratosthenes Scor 70
Compilator fpc Status done
Runda Arhiva educationala Marime 0.49 kb
program asfsdf;
var f,g:text;
n,numar,nr,c:longint;
bifat:array[1..2000000] of integer;
begin
assign(f,'ciur.in'); reset(f);
assign(g,'ciur.out'); rewrite(g);
read(f,n);
   numar:=2;
     while numar<=n do
       begin
       nr:=numar;
          while nr<=n do
             begin
             bifat[nr]:=1;
             nr:=numar+nr;
             end;
       while bifat[numar]=1 do
         numar:=numar+1;
         c:=c+1;
       end;
       write(g,c);
close(f);
close(g);
end.