Cod sursa(job #418126)

Utilizator AndrewXJuduc Paul Andrei AndrewX Data 15 martie 2010 15:25:29
Problema Pairs Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.57 kb
#include<stdio.h>
#include<math.h>
int m,v[100001],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(i>2&&v[i]!=v[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;
}