Pagini recente » Cod sursa (job #1660842) | Cod sursa (job #762003) | Cod sursa (job #169340) | Cod sursa (job #2264895) | Cod sursa (job #405128)
Cod sursa(job #405128)
const infile='ciur.in';
outfile='ciur.out';
maxn=2000001;
var n,nr:longint;
p:array[1..maxn]of 0..1;
//p[i]=0 daca 2*i+1 este prim
procedure prim;
var i,j:longint;
begin
//parcurg toate numerele inpare mai mari decat i*i
i:=1;
while(2*(i*i+i)<=n)do begin
if(p[i]=0)then begin
j:=2*(i*i+i);
while(2*j+1<=n)do begin p[j]:=1; inc(j,2*i+1); end;
end;
inc(i);
end;
i:=1; while(2*i+1<=n)do begin if(p[i]=0)then inc(nr); inc(i); end;
end;
begin
assign(input,infile); reset(input); readln(n); close(input);
prim;
assign(output,outfile); rewrite(output); write(nr+1); close(output);
end.