Cod sursa(job #21891)

Utilizator poepiPoenaru Iulian poepi Data 24 februarie 2007 22:31:50
Problema Fractii Scor 10
Compilator c Status done
Runda Arhiva de probleme Marime 0.44 kb
#include<stdio.h>
long n,nr,nrf;
int cmmdc(long a,long b)
{
	long r,x;
	x=a;
	while(b)
	{
		r=a%b;
		a=b;
		b=r;
	}
	if(a==x||a==1)
		return 0;
	else
		return a;
}
int main()
{
	long i,j;
	FILE *f=fopen("fractii.in","r"),*g=fopen("fractii.out","w");
	fscanf(f,"%ld",&n);
	for(i=4;i<=n;i++)
		for(j=1;j<i;j++)
			if(cmmdc(i,j))
				nr++;
	nrf=n*n-nr*2-n+1;
	fprintf(g,"%ld",nrf);
	fclose(g);
	fclose(f);
	return 0;
}