Cod sursa(job #178914)

Utilizator n_lichkingSentes Norbert n_lichking Data 15 aprilie 2008 13:10:50
Problema Pairs Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 1.11 kb
#include<stdio.h>
#include<math.h>
FILE *f=fopen("pairs.in","r");
FILE *g=fopen("pairs.out","w");

long n,v[1000000];
long long nrsol;

void cit()
{
 fscanf(f,"%ld",&n);
  for(long i=1;i<=n;i++)
    fscanf(f,"%ld",&v[i]);
 nrsol=0;

}



int verif(long a,long b)
{
if(a%b==0)
 return 0;
long r;
 r=a%b;
  while(r)
   {a=b;
    b=r;
   r=a%b;
    }

if(b==1)
  return 1;
   return 0;

}




void solve()
{ for(long i=1;i<n;i++)
    for(long j=i+1;j<=n;j++)
     if(v[i]>v[j])
        {if(verif(v[i],v[j]))
            ++nrsol;
         }
     else if(verif(v[j],v[i]))
           ++nrsol;
     

}


int main()
{
 cit();
 solve();
 fprintf(g,"%lld",nrsol);
 fcloseall();
return 0;
}