Cod sursa(job #109225)

Utilizator MaGdUtZaVasile Maria-Magdalena MaGdUtZa Data 25 noiembrie 2007 09:17:55
Problema Pairs Scor 20
Compilator cpp Status done
Runda preONI 2008, Runda 1, Clasa a 10-a Marime 0.52 kb
#include<stdio.h>
#define dim 10001

int cmmdc(long b,long c);

long n,a[dim],i,j,b,c,k,r;

int main()
{
	freopen("pairs.in","r",stdin);
	freopen("pairs.out","w",stdout);

	scanf("%ld",&n);

	for(i=1; i<=n; ++i)

		scanf("%ld",&a[i]);

	for(i=1; i<n; ++i)

		for(j=i+1; j<=n; ++j)
		{
			b=a[i];c=a[j];

			if(cmmdc(b,c))

				++k;
		}
	printf("%ld",k);

	return 0;
}
int cmmdc(long b,long c)
{
	do
	{
		r=b%c;

		b=c;

		c=r;
	}while(r);

	if(b==1)

		return 1;

	else

		return 0;
}