Cod sursa(job #118306)

Utilizator adrianaqtreus adriana adrianaqt Data 24 decembrie 2007 12:37:37
Problema Pairs Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.64 kb
#include<fstream.h>
ifstream f("pairs.in");
ofstream g("pairs.out");
typedef int stiva[100];
stiva st;
int n,a[100],nr=0;
void init(int k)
{if(k==1) st[k]=0;
else st[k]=st[k-1]+1;}
int succesor(int k)
{  if(st[k]<n){st[k]++;
	       return 1;}
 else  return 0;
}

int cmmdc(int a,int b)
{while(a!=b){if(a>b)a=a-b;
	    else b=b-a;}
if(a==1)return 1;
else return 0;
}
int solutie(int k)
{return k==2;}
void back(int k)
{  init(k);
	  while(succesor(k))
	  
	  if(solutie(k))
          {if(cmmdc(st[1],st[2]))
	  nr++;  }
	  else back(k+1);
}
int main()
{f>>n;
for(int i=1;i<=n;i++)f>>a[100];
back(1);
g<<nr;
return 0;}