Cod sursa(job #882787)

Utilizator lostsoulMunteanu Florin lostsoul Data 19 februarie 2013 14:45:52
Problema Pairs Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.43 kb
#include <iostream>
#include <fstream>

using namespace std;

ifstream f("pairs.in");
ofstream g("pairs.out");

int cmmdc(double a,double b)
{
if(a==b) return a;
else
if (a>b) return cmmdc(a-b,b);
else return cmmdc(a,b-a);
}

int main()

{long long v[100000],n;
int r=1,i,j,nr=0;
f>>n;
for(i=1;i<=n;i++)
	f>>v[i];
  
for(i=1;i<=n;i++)
	  for(j=i+1;j<=n;j++)
		  if(cmmdc(v[i],v[j])==1)
              nr++;
g<<nr;
}