Cod sursa(job #418625)

Utilizator MihaicorneliuMihai Pojar Mihaicorneliu Data 16 martie 2010 10:12:15
Problema Ciurul lui Eratosthenes Scor 40
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: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;
        repeat
          g:=g+f;
          a[g]:=false
        until g>=n
      end;
  assign(o,'ciur.out');
  rewrite(o);
  write(o,c);
  close(o)
end.