Cod sursa(job #413401)

Utilizator lau08Laurentiu Capatina lau08 Data 8 martie 2010 14:51:55
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.48 kb
#include<stdio.h>
FILE *f=fopen("fractii.in","r");
FILE *g=fopen("fractii.out","w");
long n,nr,st[100000];

int cmmdc(int a,int b)
{int r=a%b;
while(r)
{a=b;
b=r;
r=a%b;
}
return b;
}

void back(int k)
{int i,y;
for(i=1;i<=n;i++)
{st[k]=i;
		if(k==1)back(k+1);
			y=cmmdc(st[k-1],st[k]);
			if(y==1 && st[k]>=st[k-1] && k==2)
				if(st[k]==1 && st[k-1]==1)nr+=1;
				else nr+=2;
		
}
}

int main()
{fscanf(f,"%ld",&n);
back(1);
fprintf(g,"%ld\n",nr);
return 0;
}