Cod sursa(job #109352)

Utilizator gr33nhumbVoicu Gabriel gr33nhumb Data 25 noiembrie 2007 10:23:40
Problema Pairs Scor 0
Compilator cpp Status done
Runda preONI 2008, Runda 1, Clasele 11-12 Marime 0.8 kb
#include<fstream.h>
#include<math.h>
long v[100001],m[100001];

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

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


int main(){
 long i,j,n,ct=0;
 long nr=0;
ifstream f("pairs.in");
ofstream g("pairs.out");
  f>>n;
  for(i=1;i<=n;i++){   f>>m[i];
		       if(verificare(m[i],i)) {nr++;v[i]=m[i];}

		       }
  for(i=1;i<=nr;i++){
   for(j=i+1;j<=nr;j++){
    if(prim(v[i],v[j])==1) ++ct;
   }
 }
g<<ct<<"\n";
f.close();
g.close();
return 0;
}