Cod sursa(job #279878)

Utilizator mihaionlyMihai Jiplea mihaionly Data 13 martie 2009 07:59:11
Problema Pairs Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.52 kb
#include <fstream.h>
ifstream f ("pairs.in");
long n,p[2],nr;
void read()
 {
 f>>n;
 }
long *m=new long[n+1];
void calc()
 {
 int a=p[0];
 int b=p[1];
 while(a!=b&&a>0&&b>0&&a!=b)
  ((a>b)?(a-=b):(b-=a));
 if(a==1)
  nr++;
 }
void comb(int i,int j)
 {
 if(i==3)
  calc();
 else
  {
  for(;j<=n;j++)
   {
   p[i-1]=m[j];
   comb(i+1,j+1);
   }
  }
 }
int main()
 {
 int i;
 read();
 for(i=1;i<=n;i++)
  f>>m[i];
 f.close();
 comb(1,1);
 ofstream g ("pairs.out");
 g<<nr;
 g.close();
 return 0;
 }