Cod sursa(job #339712)

Utilizator TyberFMI Dogan Adrian Ioan Lucian Tyber Data 11 august 2009 12:46:10
Problema Pairs Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.41 kb
#include<stdio.h>
#define nmax 100010
int cmmdc(int,int);
int n,v[nmax];
int main()
{
	freopen("pairs.in","r",stdin);
	freopen("pairs.out","w",stdout);
	int i,j,c=0;
	scanf("%d",&n);
	for(i=1;i<=n;i++)
		scanf("%d",&v[i]);
	for(i=1;i<n;i++)
		for(j=i+1;j<=n;j++)
			if(cmmdc(v[i],v[j])==1)c++;
	printf("%d\n",c);
	return 0;
}
int cmmdc(int a,int b)
{
	if(!b)return a;
	return cmmdc(b,a%b);
}