Pagini recente » Cod sursa (job #2238285) | Cod sursa (job #2472456) | Cod sursa (job #1031888) | Cod sursa (job #1036040) | Cod sursa (job #109225)
Cod sursa(job #109225)
#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;
}