Cod sursa(job #67829)

Utilizator XladhenianGrigorita Vlad-Stefan Xladhenian Data 25 iunie 2007 17:43:22
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.57 kb

#include <iostream.h>
#include <fstream.h>

int main(void)
{
 fstream f1("fractii.in",ios::in);
 fstream f2("fractii.out",ios::out);
 long a = 0;
 long b = 0;
 long c = 0;
 long d = 0;
 long e = 0;
 long N = 0;
 long nr = 0;
 f1 >> N;
 for (a = 1;a <= N;a = a + 1)
  {
   for (b = (a + 1);b <= N;b = b + 1)
    {
     d = a;
     e = b;
     while (e > 0)
      {
       c = d % e;
       d = e;
       e = c;
      }
     if (d == 1)
       {
        nr = nr + 1;
       }
    }
  }
 f2 << (nr * 2) + 1;
 f1.close();
 f2.close();
 return 0;
}