Cod sursa(job #109282)

Utilizator gr33nhumbVoicu Gabriel gr33nhumb Data 25 noiembrie 2007 09:55:01
Problema Pairs Scor 0
Compilator cpp Status done
Runda preONI 2008, Runda 1, Clasele 11-12 Marime 0.72 kb
#include<fstream.h>
#include<math.h>
#include<conio.h>
long v[1000];

int prim(int x, int y){
if(x<=y){
for(int i = 2; i < x/2; i++)
   if(x%i == 0 && y%i==0) return 0;
return 1;
}
else{ 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;

ifstream f("pairs.in");
ofstream g("pairs.out");
  f>>n;
  for(i=1;i<=n;i++){ if(verificare(v[i],i)) f>>v[i];
		       else n--;
		       }
  for(i=1;i<=n;i++){
   for(j=i+1;j<=n;j++){
    if(prim(v[i],v[j])) ++ct;
   }
 }
cout<<ct;
getch();
f.close();
g.close();
return 0;
}