Cod sursa(job #545888)

Utilizator dragosd2000Dumitrache Dragos dragosd2000 Data 4 martie 2011 08:26:37
Problema Pairs Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.38 kb
#include<fstream.h>
ifstream fin("pairs.in");
ofstream fout("pairs.out");
long n;
long long x[100000];
int cmmdc(long a, long b)
{
	if(b<=0)
		return a;
	else
		return cmmdc(b,a%b);
}
int main()
{
	int i,j,nr=0;
	fin>>n;
	for(i=1;i<=n;i++)
		fin>>x[i];
	for(i=1;i<n;i++)
		for(j=i+1;j<=n;j++)
			if(cmmdc(x[i],x[j])==1 && x[i]!=x[j])
				nr++;
	fout<<nr;
	return 0;
}