Cod sursa(job #418621)
Utilizator | Data | 16 martie 2010 10:05:55 | |
---|---|---|---|
Problema | Ciurul lui Eratosthenes | Scor | 20 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.46 kb |
program ciur;
type vector=array[2..2000000] of boolean;
var a:vector;
i,o:text;
n,c,f,g:integer;
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;
repeat
g:=g+f;
a[g]:=false
until g>=n
end;
assign(o,'ciur.out');
rewrite(o);
write(o,c);
close(o)
end.