Cod sursa(job #625245)

Utilizator oancea_horatiuOancea Horatiu oancea_horatiu Data 24 octombrie 2011 09:09:45
Problema Ciurul lui Eratosthenes Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.32 kb
Raporteaza aceasta sursa 
program ciur_erathosthenes;
var n,i,j,t:longint;
    d,o:text;
begin
assign(d,'ciur.in');
assign(o,'ciur.out');
reset(d);rewrite(o);
read(d,n);
t:=n;
for i:=2 to (n div 2) do
  begin
    j:=i*2;
    while j<n do
      begin
        t:=t-1;
        j:=j+i;
      end;
  end;
write(o,t);
close(d);close(o);
end.