Cod sursa(job #144968)

Utilizator andrei-alphaAndrei-Bogdan Antonescu andrei-alpha Data 28 februarie 2008 10:41:51
Problema Pairs Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.4 kb
#include <stdio.h>

int cmmdc(int a, int b) {
	if (b == 0) return a;
	return cmmdc(b,a%b);
}

#define N 100000
int v[N];
int main()
{int n,i,j,nr=0;
freopen("pairs.in", "r",stdin);
freopen("pairs.out", "w",stdout);
scanf("%d", &n);
		for(i=1;i<=n;++i)
		{scanf("%d", &j); v[i]=j; }	

for(i=1;i<=n;++i)
	for(j=i;j<=n;++j)
		if(cmmdc(v[i],v[j])==1) ++nr; 
	
printf("%d\n", nr);

return 0;	
}