Cod sursa(job #561430)

Utilizator morlockRadu Tatomir morlock Data 20 martie 2011 13:37:27
Problema Pairs Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.6 kb
#include <iostream>
#include <fstream>
using namespace std;
ifstream in("pairs.in"); ofstream out("pairs.out");
int n, v[100000], nr=0;

int cmmdc(int a, int b)
{
    while (a != b)
     {
         if (a > b)
          a=a-b;
         else
          b=b-a;
     }

  return a;
}

int procesare (int n)
{

    for (int i=1; i<=n; i++)
        in>>v[i];

     for (int i=1; i<=n; i++)
      for (int j=i; j<=n; j++)
           if ( cmmdc(v[i],v[j]) == 1 ) nr++;

    return nr;
}

int main()
{

    in>>n;

   out<<procesare(n);

in.close();
out.close();

return 0;
}