Cod sursa(job #772284)

Utilizator misinozzz zzz misino Data 28 iulie 2012 22:32:24
Problema Pairs Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.34 kb
#include<fstream>
using namespace std;
ifstream f("pairs.in");
ofstream g("pairs.out");
int i,j,nr,n,a[100001];
int gcd(int a,int b)
{if(b==0)
	return a;
else
	return gcd(b,a%b);
}	
int main()
{f>>n;
for(i=1;i<=n;++i)
	f>>a[i];
for(i=1;i<=n;++i)
	for(j=i+1;j<=n;++j)
		if(gcd(a[i],a[j])==1)
			++nr;
g<<nr<<'\n';
return 0;
}