Cod sursa(job #101245)

Utilizator mithyPopovici Adrian mithy Data 13 noiembrie 2007 10:58:11
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.55 kb
#include <fstream.h>


long long n;

int cmmdc( long long a, long long b );

int main()
{
   long long i, j, sum = 0;

   ifstream fin( "fractii.in" );
   ofstream fout( "fractii.out" );
   fin >> n ;

   for (i=1; i<=n; i++)
       for (j=1; j<=n; j++)
           if ( cmmdc(i,j) == 1 )
              sum++;

   fout << sum << '\n';

   return 0;
}

int cmmdc( long long a, long long b )
{
   long long r;

   if ( a == 1 )
      return 1;

   while ( b )
   {
      r = a % b;
      a = b ;
      b = r;
   }

   return a;
}