Cod sursa(job #388497)

Utilizator C0Mr4d3yonootz321 C0Mr4d3 Data 30 ianuarie 2010 12:30:42
Problema Fractii Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.32 kb
Raporteaza aceasta sursa 
program fractii;
var f:text;
    n,i,s:1..1000000;
begin
  assign(f,'fractii.in');
  reset(f);
  readln(f,n);
  close(f);
  assign(f,'fractii.out');
  i:=3;
  s:=n+(n div 2)*(n - n div 2);
  while i<=n do
    begin
      s:=s+(n-n div i);
      i:=i+2;
    end;
  rewrite(f);
  writeln(f,s);
  close(f);
end.