Cod sursa(job #418134)

Utilizator AndrewXJuduc Paul Andrei AndrewX Data 15 martie 2010 15:37:40
Problema Pairs Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.6 kb
#include<stdio.h>
#include<math.h>
int m,v[100001],i,k,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(i>1&&v[i]==v[i-1])
		 break;
		else
		 if(i>1)
				for(k=1;k<=i;k++)
					if(v[i]!=v[k]&&cmmdc(v[i],v[k])==1)
						contor++;
	}
	/*if(ok)
	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;
}