Cod sursa(job #574974)

Utilizator RengelBotocan Bogdan Rengel Data 7 aprilie 2011 19:00:05
Problema Pairs Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.45 kb
#include<cstdio>

int k,n,i,j;
int a[100005];

void read(){
	
	scanf("%d",&n);
	for(int i=1;i<=n;i++)
		scanf("%d",&a[i]);
	
}

int cmmdc(int a,int b){
	
	int r=a%b;
	while(r){
		a=b;
		b=r;
		r=a%b;
	}
	return b;
	
}

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