Cod sursa(job #155377)

Utilizator HoriaClementHoriaC HoriaClement Data 11 martie 2008 21:38:29
Problema Ciurul lui Eratosthenes Scor 30
Compilator fpc Status done
Runda Arhiva educationala Marime 0.42 kb
var i,j,n,cnt:integer;
    v:array[1..200000] of integer;
    f,g:text;
begin
cnt:=0;
assign(f,'ciur.in');reset(f);
assign(g,'ciur.out');rewrite(g);
read(f,n);
for i:=2 to trunc(sqrt(n)) do
        if v[i]=0 then begin
                       for j:=2 to (n div i) do
                       v[i*j]:=1;
                       end;
for i:=2 to n do
if v[i]=0 then inc(cnt);
write(g,cnt);
close(f);
close(g);
end.