Pagini recente » Borderou de evaluare (job #3191501) | Borderou de evaluare (job #946088) | Borderou de evaluare (job #2155094) | Borderou de evaluare (job #1705225) | Cod sursa (job #201149)
Cod sursa(job #201149)
# include <stdio.h>
int a[10000],i,j,n,k;
int cmmdc (int a,int b)
{
if (a==b)
return a;
else
if (a>b)
return cmmdc(a-b,b);
else
return cmmdc(a,b-a);
}
int main ()
{
freopen ("pairs.in","r",stdin);
freopen ("pairs.out","w",stdout);
scanf ("%i",&n);
for (i=0;i<n;i++)
scanf ("%i",&a[i]);
for (i=0;i<n-1;i++)
for (j=i+1;j<n;j++)
if (cmmdc (a[i],a[j])==1)
k++;
printf ("%i",k);
return 0;
}