Cod sursa(job #109226)
| Utilizator | Data | 25 noiembrie 2007 09:17:55 | |
|---|---|---|---|
| Problema | Pairs | Scor | 20 |
| Compilator | cpp | Status | done |
| Runda | preONI 2008, Runda 1, Clasele 11-12 | Marime | 0.52 kb |
#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;
}