Cod sursa(job #154280)

Utilizator RichiUngur Richard-Alex Richi Data 11 martie 2008 07:39:36
Problema Ciurul lui Eratosthenes Scor 40
Compilator fpc Status done
Runda Arhiva educationala Marime 0.33 kb
Raporteaza aceasta sursa 
var v:array[1..1000000] of byte;
    i,j,k:longint;
begin
assign(input,'ciur.in'); reset(input);
assign(output,'ciur.out');rewrite(output);
readln(k);
for i:=2 to trunc(sqrt(k)) do
 if v[i]=0 then for j:=2 to k div i do v[i*j]:=1;
j:=0;
for i:=2 to k-1 do
if v[i]=0 then inc(j);
writeln(j);
close(input); close(output);
end.