Cod sursa(job #234644)

Utilizator cosmin79Carabet Cosmin Andrei cosmin79 Data 21 decembrie 2008 15:07:05
Problema Pairs Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.41 kb
#include <stdio.h>
int cmmdc(int a,int b)
{
	int m,i;
	m=a%b;
	while(m)
	{
		a=b;
		b=m;
		m=a%b;
	}
	return b;
}
int main()
{
	freopen("pairs.in","r",stdin);
	freopen("pairs.out","w",stdout);
	int n,i,a[10000],j,s=0;
	scanf("%d",&n);
	for (i=1; i<=n; i++)
		scanf("%d",&a[i]);
	for (i=1; i<=n-1; i++)
		for (j=i+1; j<=n; j++)
			if (cmmdc(a[i],a[j])==1)
				s++;
	printf("%d",s);
	return 0;
}