Cod sursa(job #274362)

Utilizator andreirRoti Andrei andreir Data 9 martie 2009 17:33:26
Problema Pairs Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.38 kb
#include<fstream.h>  
int n,nr;  
long int v[100001];  
ifstream fin("pairs.in");  
ofstream fout("pairs.out");  
int gcd(int a, int b)  
{  
	if (!b) return a;  
	return gcd(b, a % b);  
}  
int main()  
{
	int i,j;
	fin>>n;  
	for(i=1;i<=n;i++)  
		fin>>v[i];  
	for(i=1;i<=n;i++)
		for(j=i;j<=n;j++)
			if(gcd(v[i],v[j])==1)
				nr++;
	fout<<nr<<"\n";
	return 0;  
}