Cod sursa(job #67457)

Utilizator XladhenianGrigorita Vlad-Stefan Xladhenian Data 24 iunie 2007 21:52:35
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.69 kb

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

int PrimeIntreEle(long a,long b)
{
 long c = 0;
 while (b > 0)
  {
   c = a % b;
   a = b;
   b = c;
  }
 if (a == 1)
   {
    return 1;
   }
  else
   {
    return 0;
   }
}

int main(void)
{
 fstream f1("fractii.in",ios::in);
 fstream f2("fractii.out",ios::out);
// long long a = 0;
// long long b = 0;
// long long N = 0;
// long long nr = 0;
 long a = 0;
 long b = 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)
    {
     if (PrimeIntreEle(a,b) == 1)
       {
        nr = nr + 1;
       }
    }
  }
 f2 << nr;
 f1.close();
 f2.close();
 return 0;
}