Cod sursa(job #10821)

Utilizator OXyeBadragan Silviu OXye Data 29 ianuarie 2007 17:36:11
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,r,ok,nr=0;
	FILE *f;
	f=fopen("fractii.in","r");
	fscanf(f,"%d",&n);
	fclose(f);
	nr=2*n-1;
	for(i=2;i<=n-1;i++)
	{
		for(j=i+1;j<=n;j++)
		{
			a=j;
			b=i;
			r=0;
			do
			{
				ok=r;
				r=a%b;
				a=b;
				b=r;
			}while(r);
			if(ok==1) nr+=2;

		}
	}
	f=fopen("fractii.out","w");
	fprintf(f,"%d",nr);
	fclose(f);
	return 0;
}