Cod sursa(job #109473)

Utilizator sigridMaria Stanciu sigrid Data 25 noiembrie 2007 11:17:05
Problema Pairs Scor 20
Compilator cpp Status done
Runda preONI 2008, Runda 1, Clasele 11-12 Marime 0.55 kb
#include<fstream.h>
#define dim 100001
int v[dim];
int jum;
int prim(int x,int y)
{if(((x%2)==0)&&((y%2)==0)) return 0;
 if(((x%y)==0)||((y%x)==0)) return 0;
 if(((x-y)==1)||((y-x)==1)) return 1;
 do
  {jum=x%y;
   x=y;
   y=jum;
  }
 while(jum);
 if(x==1) return 1;
return 0;
}
int main()
{ifstream f("pairs.in");
 ofstream g("pairs.out");
 unsigned long n,i,j,k,cont;
 cont=0;
 f>>n;
 f>>v[1];
 for(i=2;i<=n;i++)
  {f>>v[i];
   for(j=1;j<i;j++)
   cont+=prim(v[i],v[j]);
  }
f.close();
 g<<cont<<'\n';
g.close();
return 0;
}