Cod sursa(job #109430)
Utilizator | Deac Adrian paul | Data | 25 noiembrie 2007 11:02:42 |
---|---|---|---|
Problema | Pairs | Scor | 20 |
Compilator | cpp | Status | done |
Runda | preONI 2008, Runda 1, Clasa a 10-a | Marime | 0.44 kb |
#include<stdio.h>
#define in "pairs.in"
#define out "pairs.out"
long n,i,j,k,a[100000];
long cmmdc(long a,long b)
{
while(a!=b)
{
if(a>b)
a-=b;
else
b-=a;
}
return a;
}
int main()
{
freopen(in,"r",stdin);
freopen(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++)
if(cmmdc(a[i],a[j])==1)
k++;
printf("%ld\n",k);
return 0;
}