Cod sursa(job #418628)
Utilizator | Mihai Pojar Mihaicorneliu | Data | 16 martie 2010 10:23:39 |
---|---|---|---|
Problema | Ciurul lui Eratosthenes | Scor | 100 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.49 kb |
program ciur;
type vector=array[2..2000000] of boolean;
var a:vector;
i,o:text;
n,c,f,g:longint;
begin
c:=0;
assign(i,'ciur.in');
reset(i);
readln(i,n);
close(i);
for f:=2 to n do
a[f]:=true;
for f:=2 to n do
if a[f] then
begin
c:=c+1;
g:=f+f;
while g<=n do
begin
a[g]:=false;
g:=g+f
end
end;
assign(o,'ciur.out');
rewrite(o);
write(o,c);
close(o)
end.