Cod sursa(job #201152)

Utilizator ProcopliucProcopliuc Adrian Procopliuc Data 29 iulie 2008 12:29:56
Problema Pairs Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.41 kb
# include <stdio.h>
int a[10000],i,j,n,k,ok;
int cmmdc (int a,int b)
{
int r;
while (ok==0 && a%b!=0)
{

r=a%b;
a=b;
b=r;
if (b==0)
ok=1;
}
return b;
}
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;
}