Cod sursa(job #380790)
Utilizator | Data | 7 ianuarie 2010 19:14:29 | |
---|---|---|---|
Problema | Ciurul lui Eratosthenes | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.42 kb |
var f:text;
v:array[1..10000] of boolean;
i,j,prim,n:longint;
begin
assign(f,'ciru.in');
reset(f);
readln(f,n);
close(f);
i:=3;
prim:=1;
while i<=n do begin
if not v[i] then begin
inc(prim);
j:=i;
while j<=n do begin
v[j]:=true;
inc(j,i);
end;
end;
inc(i,2);
end;
assign(f,'ciru.out');
rewrite(f);
writeln(f,prim);
close(f);
end.