Cod sursa(job #113877)

Utilizator Matei14Popa-Matei Mihai Matei14 Data 11 decembrie 2007 20:25:21
Problema Pairs Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.47 kb
#include<stdio.h>
int cmmdc(int a,int b){
	int c=0;
	while(a*b){
		if(a>b){
			a=a-b;
			c=b;
		}
		else{
			b=b-a;
            c=a;
		}}
	return c;
}
int main(){
	int n,v[100000],i,j,s=0;
	freopen("pairs.in","r",stdin);
	freopen("pairs.out","w",stdout);
	scanf("%d",&n);
	for(i=0;i<n;++i){
		scanf("%d",&v[i]);
		for(j=i-1;j>=0;--j)
			if(cmmdc(v[i],v[j])==1 && v[i]!=v[j])
				++s;
	}
	printf("%d\n",s);
	fclose(stdin);
	fclose(stdout);
	return 0;
}