Cod sursa(job #111269)

Utilizator gr33nhumbVoicu Gabriel gr33nhumb Data 28 noiembrie 2007 23:14:14
Problema Pairs Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.99 kb
#include<iostream.h>
#include<fstream.h>

long v[100001],x[1000001];
long n;

int prim(long x){
    long i;
     for(i=2;i<=x/2;i++) if(x%i==0) return 0;
     return 1;
 }    

int verificare(long x){
  int i;   
     for(i=1;i<=n;i++) if(v[i]==x) return 1;
      return 0;
  }    

int main(){
 int t;
 long i,j,max,p,res=0,u;
 
ifstream f("pairs.in");
ofstream g("pairs.out");
  f>>n;
  max=-1;
  for(i=1;i<=n;i++){   f>>v[i];
                       if(v[i]>max) max=v[i];          
		   }
  for(i=1;i<=max;i++){
       for(j=1;j<=(max/i)*i;j++){
            if(verificare(i*j)) x[i]++;
        }
   }
   
  for(i=2;i<=max;i++){
     p=i;
     if(x[p]){
         t=0;
          for(u=2;u<=max;u++) if(prim(u)==1) if(p%u==0){ p/=u; t++;}
            if(p==1) { if(t%2==0) res-=x[i];
                       else res+=x[i];
                     }      
        }
   }        
                          
   
 
g<<n*(n-1)/2 - res;
f.close();
g.close();
return 0;
}