Cod sursa(job #538842)

Utilizator lily3Moldovan Liliana lily3 Data 21 februarie 2011 22:46:35
Problema Pairs Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.38 kb
#include<fstream>
using namespace std;

int i,j,n,m,a[100001];
unsigned long nr=0;
int cmmdc(int a,int b)
{
	int r;
	r=a%b;
	while(r)
	{
		a=b;
		b=r;
		r=a%b;
	}
	return b;
}
int main()
{
	ifstream f("pairs.in");
	ofstream g("pairs.out");
	f>>n;
	for(i=1;i<=n;i++)
	{
		f>>a[i];
		for(j=1;j<i;j++)
			if(cmmdc(a[i],a[j])==1)
				nr++;
	}
	g<<nr;
	return 0;
}