Cod sursa(job #178907)

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

long n,v[100000];
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;
for(long i=2;i<=a/2;i++)
    if(a%i==0) 
       if(b%i==0) 
         return 0;
        else if(i>b)
            return 1;
return 1;
}



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;
}