Cod sursa(job #5443)

Utilizator alzwdedVlad Mesco alzwded Data 12 ianuarie 2007 15:06:41
Problema Fractii Scor 0
Compilator c Status done
Runda Arhiva de probleme Marime 0.59 kb
#include <stdio.h>
//version 2

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;*/

	int r=i%j;

	if(r==1) return 1;
	if(r==0) return 0;
	if(i%r==0){
		return 0;
	}else{
		return 1;
	}
}

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

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

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

		cacat(i+1);
	}
}