Pagini recente » Cod sursa (job #1483038) | Cod sursa (job #477565) | Cod sursa (job #2374099) | Cod sursa (job #660555) | Cod sursa (job #196491)
Cod sursa(job #196491)
program ciur;
{$APPTYPE CONSOLE}
uses
SysUtils;
var c,i,j,n,m:Longint;
fin,fout:text;
v:array [1..2000000] of byte;
begin
assign(fin,'ciur.in'); reset(fin);
assign(fout,'ciur.out'); rewrite(fout);
readln(fin,n);
for i:=1 to n do v[i]:=1;
for i:=2 to n do
begin
if v[i] = 1 then
begin
j:=1;
While i * j <= n do
begin
inc(j);
v[i*j]:=0;
end;
end;
end;
c:=0;
For i:=2 to n do if v[i] = 1 then inc(c);
writeln(fout,c);
close(fin);
close(fout);
end.