Cod sursa(job #290641)

Utilizator bog29Antohi Bogdan bog29 Data 28 martie 2009 14:43:14
Problema Pairs Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.4 kb
#include<fstream.h>
#define dmax 100000
ifstream in("pairs.in");
ofstream out("pairs.out");
int x[dmax],n,k;
int cmmdc(int x,int y)
{	if(x%y==0)return y;
	else return cmmdc(y,x%y);
}	
int main()
{	int i,j;
	in>>n;
	for(i=1;i<=n;i++)
		in>>x[i];
	in.close();
	for(i=1;i<=n;i++)
		for(j=i;j<=n;j++)
			if(x[i]!=x[j])
				if(cmmdc(x[i],x[j])==1)
					k++;
	out<<k;
	out.close();
	return 0;
}