Cod sursa(job #193016)

Utilizator pissoiashCristian-Alexandru Staicu pissoiash Data 1 iunie 2008 21:25:12
Problema Fractii Scor 10
Compilator c Status done
Runda Arhiva de probleme Marime 0.4 kb
#include <stdio.h>

long cmmd(long i, long j)
{
	if (i==1 || j==1)
		return 1;
	while (i!=j)
	{
		if (i>j)
			i=i-j;
			else
				j=j-i;	
	}
	return i;
}

main()
{
	FILE *f;
	long i,j,n,nr=0;
	f=fopen("fractii.in","r");
	fscanf(f,"%d",&n);
	nr=n;
	for (i=2;i<=n;i++)
		for (j=1;j<=n;j++)
			if (cmmd(i,j)==1)
				nr++;
	fclose(f);
	f=fopen("fractii.out","w");
	fprintf(f,"%d",nr);
	fclose(f);
	return 0;
	}