Cod sursa(job #74934)

Utilizator XladhenianGrigorita Vlad-Stefan Xladhenian Data 29 iulie 2007 19:16:03
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.56 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 = 1;b <= N;b = b + 1)
    {
     c = a;
     d = b;
     while (d != 0)
      {
       e = c % d;
       c = d;
       d = e;
      }
     if (c == 1)
       {
        nr = nr + 1;
       }
    }
  }
 f2 << nr;
 f1.close();
 f2.close();
 return 0;
}