Cod sursa(job #119676)

Utilizator adrianaqtreus adriana adrianaqt Data 2 ianuarie 2008 16:56:28
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.55 kb
#include<fstream.h>
typedef int stiva[100];
stiva st;
ifstream f("fractii.in");
ofstream g("fractii.out");
int n,nr;
void init(int k)
{ st[k]=0;}
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;
back(1);
g<<nr;}