Cod sursa(job #140783)

Utilizator DraStiKDragos Oprica DraStiK Data 22 februarie 2008 11:59:22
Problema Pairs Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.61 kb
#include <stdio.h>
int pair (int a, int b);
long m[100001];
int n;
long k;
int main ()
{
	freopen ("pairs.in","r",stdin);
	freopen ("pairs.out","w",stdout);
	int i,j;
	scanf ("%d",&n);
	for (i=1; i<=n; ++i)
	    scanf ("%ld",&m[i]);
    for (i=1; i<n; ++i)
              for (j=i+1; j<=n; ++j)
                  if (pair(m[i],m[j])==1)
                     ++k;
    printf ("%ld",k);
	return 0;
}
int pair (int a, int b)
{
    int a1,b1,r;
    a1=a;
    b1=b;
    if (a1==b1)
       return 0;
    do
    {
         r=a%b;
         a=b;
         b=r;
    }
    while (r);
    return a;
}