Pagini recente » Cod sursa (job #2882874) | Cod sursa (job #3258259) | Profil Antonie21Daniel | Cod sursa (job #3196850) | Cod sursa (job #109431)
Cod sursa(job #109431)
#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;
}