Cod sursa(job #5315)

Utilizator alzwdedVlad Mesco alzwded Data 11 ianuarie 2007 19:50:24
Problema Fractii Scor 10
Compilator c Status done
Runda Arhiva de probleme Marime 0.47 kb
#include <stdio.h>

FILE *f,*g;
long n;
long kk;

void cacat(long i);

main(){
	f=fopen("fractii.in","r");
	g=fopen("fractii.out","w");

	fscanf(f,"%d",&n);
	cacat(1);
	fprintf(g,"%d",kk);

	fclose(g);
	return 0;
}

long cmmdc(long i, long j){

	while(j){
		long r;
		r=i%j;
		i=j;
		j=r;
	}

	return i;
}

void cacat(long i){
	if(i<=n){
		long j=1;

		for(;j<=n;++j){

			if(cmmdc(i,j)==1){
				++kk;
			}
		}

		cacat(i+1);
	}
}