Pagini recente » Cod sursa (job #1634319) | Statistici Pitu Bianca (bibiancapitu2004) | Istoria paginii runda/cel_mai_mare_olimpicar_2019_oni2008_zi2 | Algoritmiada 2009 - Clasament Runda 2, Studenti | Cod sursa (job #513364)
Cod sursa(job #513364)
const f='ciur.in';g='ciur.out';
nmax=2000001;
var
v:array[1..nmax] of char;
n,i,j,cate:longint;
begin
assign(input,f);reset(input);
assign(output,g);rewrite(output);
read(n);
for i:=2 to n do v[i]:='1';
for i:=2 to n do
if v[i]='1' then
begin
inc(cate);
j:=i+i;
while j<=n do
begin
v[j]:='0';
j:=j+i;
end;
end;
write(cate);
close(input);close(output);
end.