Cod sursa(job #284105)

Utilizator andrei_balintbalint andrei andrei_balint Data 20 martie 2009 23:52:49
Problema Pairs Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.39 kb
#include<fstream>
using namespace std;
ifstream cin("pairs.in");
ofstream cout("pairs.out");
int divc(int a,int b)
{
	int r;
r=1;	
	while(r!=0)
	{
		r=a%b;
		a=b;
		b=r;
	}
return a;
};
int main()
{
	int r,j,i,n,v[100000];
	r=0;
	cin>>n;
	for(i=1;i<=n;i++)
		cin>>v[i];
	for(i=1;i<=n-1;i++)
		for(j=i;j<=n;j++)
			if(divc(v[i],v[j])==1)
				r=r+1;
	cout<<r;
	return 0;
}