Cod sursa(job #109430)

Utilizator paulDeac Adrian paul Data 25 noiembrie 2007 11:02:42
Problema Pairs Scor 20
Compilator cpp Status done
Runda preONI 2008, Runda 1, Clasa a 10-a Marime 0.44 kb
#include<stdio.h>

#define in "pairs.in"
#define out "pairs.out"


long n,i,j,k,a[100000];

long cmmdc(long a,long b)
{
	while(a!=b)
	{
		if(a>b)
			a-=b;
		else
			b-=a;
	}
	return a;
}

int main()
{
	freopen(in,"r",stdin);
	freopen(out,"w",stdout);
	scanf("%ld",&n);
	for(i=1;i<=n;i++)
		scanf("%ld",&a[i]);
	for(i=1;i<=n;i++)
		for(j=i+1;j<=n;j++)
			if(cmmdc(a[i],a[j])==1)
				k++;
	printf("%ld\n",k);
	return 0;
}