Cod sursa(job #174536)

Utilizator Snavenportnespecificat Snavenport Data 8 aprilie 2008 22:42:18
Problema Fractii Scor 100
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.48 kb
#include <fstream.h>


ifstream f("fractii.in");
ofstream g("fractii.out");




int n;


void citire()
{
    f>>n;     
    f.close();
}



    
long phi[1000001];
long long nr=0LL;


int main()
{
    
      long i,j;
      citire();
      for (i=1;i<=n;i++)
         phi[i]=i-1;
      for (i=2;i<=n;i++)
        for (j=i+i;j<=n;j=j+i)
           phi[j]=phi[j]-phi[i];
      for (i=1;i<=n;i++)
        nr=nr+phi[i];
      nr=2*nr+1;
      g<<nr;  
}