Cod sursa(job #173129)

Utilizator kis_lorikis levente lorand kis_lori Data 7 aprilie 2008 11:21:25
Problema Ciurul lui Eratosthenes Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.31 kb
Raporteaza aceasta sursa 
var n,i,j,nr:longint;
    v:array [1..2000000] of byte;
begin
 assign(input,'ciur.in'); reset(input);
 assign(output,'ciur.out'); rewrite(output);
 readln(n);
 for i:=2 to n do
  if v[i]=0 then begin
   inc(nr);
   for j:=2 to n div i do v[i*j]:=1;
  end;
 writeln(nr);
 close(input); close(output);
end.