Cod sursa(job #1151785)

Utilizator jordasIordache Andrei Alexandru jordas Data 24 martie 2014 12:55:30
Problema Pairs Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.51 kb
#include <fstream>

using namespace std;

 ifstream x ("pairs.in");
 ofstream y ("pairs.out");

 int n,i,j,a,b,v[100001],nr;

 void read()
   {x>>n;
    for(i=1;i<=n;i++)
      x>>v[i];
   }

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

 void pairs()
   {for(i=1;i<n;i++)
      for(j=i+1;j<=n;j++)
        {a=v[i];
         b=v[j];
         cmmdc();
         if(a==1) nr++;
        }
    y<<nr<<'\n';
   }

int main()
{read();
 pairs();

 return 0;
}