Cod sursa(job #651111)

Utilizator DaNutZ2UuUUBB Bora Dan DaNutZ2UuU Data 19 decembrie 2011 20:52:22
Problema Pairs Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.42 kb
#include<fstream>
using namespace std;
ifstream fin("pairs.in");
ofstream fout("pairs.out");
int cmmdc(int a, int b)
{
	while(a!=b)
	{
		while(a>b)a=a-b;
		while(a<b)b=b-a;
	}
	return a;
}


int main()
{
	int i,j,n,a[100000],k=0;
	fin>>n;
	for(i=1;i<=n;i++)fin>>a[i];
	
	for(i=1;i<n;i++)
		for(j=i+1;j<=n;j++)
			if(cmmdc(a[i],a[j])==1)k++;
			
fout<<k;
		fin.close();
		fout.close();
		return 0;
	}