Cod sursa(job #418115)

Utilizator AndrewXJuduc Paul Andrei AndrewX Data 15 martie 2010 15:12:53
Problema Pairs Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.49 kb
#include<stdio.h>
#include<math.h>
int m,v[10000],i,k,ok=1,contor,j;
FILE *in=fopen("pairs.in","rt"),*out=fopen("pairs.out","wt");
int cmmdc(int a,int b)
{
while(a!=b)
 if(a>b)
	a-=b;
 else
	b-=a;
return a;
}

int main()
{
	fscanf(in,"%d",&m);
	for(i=1;i<=m;i++)
	{
		fscanf(in,"%d",&v[i]);
		if(v[i]==v[i-1])
			ok=0;
	}
	if(ok==1)
	for(i=1;i<m;i++)
		for(k=i+1;k<=m;k++)
			if(v[i]!=v[k]&&cmmdc(v[i],v[k])==1)
			 contor++;
	fprintf(out,"%d",contor);
	return 0;
}