Cod sursa(job #10601)

Utilizator OXyeBadragan Silviu OXye Data 28 ianuarie 2007 19:23:59
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.37 kb
#include<stdio.h>
int main()
{
	unsigned n,i,j,a,b,nr=0;
	FILE *f;
	f=fopen("fractii.in","r");
	fscanf(f,"%u",&n);
	for(i=1;i<=n;i++)
	{
		for(j=1;j<=n;j++)
		{
			a=i;b=j;
			while(a!=b)
			{
				if(a>b)
					a=a-b;
				else
					b=b-a;
			}
			if(a==1) nr++;
		}
	}
	fclose(f);
	f=fopen("fractii.out","w");
	fprintf(f,"%u",nr);
	fclose(f);
	return 0;
}