Cod sursa(job #10628)

Utilizator OXyeBadragan Silviu OXye Data 28 ianuarie 2007 20:08:01
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.4 kb
#include<stdio.h>
int main()
{
	int n,i,j,a,b,nr=0;
	FILE *f;
	f=fopen("fractii.in","r");
	fscanf(f,"%d",&n);
	for(i=1;i<=n;i++)
	{
		for(j=1;j<=n;j++)
		{
			a=i;b=j;
			if(a%2==0&&b%2==0) {a=2;b=2;}
			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,"%d",nr);
	fclose(f);
	return 0;
}