Cod sursa(job #418628)

Utilizator MihaicorneliuMihai 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.