Cod sursa(job #17711)

Utilizator xtephanFodor Stefan xtephan Data 16 februarie 2007 18:43:31
Problema Fractii Scor 10
Compilator c Status done
Runda Arhiva de probleme Marime 0.68 kb
//16.02.2007
#include<stdio.h>


/*int ireductibil(long a, long b)
	{
	while(a!=b)
	{
	if(a>b)
	a=a-b;
	else 
	b=b-a;
	}
	return a;
	}
*/

int cmmdc(long a, long b)
	{
	int r;
	r=a%b;
	while(r)
	{
        a=b;
        b=r;
        r=a%b;
        }
	if (b==1) return 1;
		else
		return 0;
	}


/*int alfabeta(int a, int b)
	{
	int d,m,p=1;
	if(a<b) m=a; else m=b;
	for(d=2; d<=a; d++)
		{if(a%d==0&&b%d==0) p=0;}
	return p;
	}
*/

int main()
{

int n,i,j,k=0;

FILE *f=fopen("fractii.in", "r");
FILE *g=fopen("fractii.out", "w");

fscanf(f, "%d", &n);
k=n+(n-1);

for(i=2; i<=n; i++)
	{
	for(j=2; j<=n; j++)
		{if(cmmdc(i,j)) k++;}
	}


fprintf(g, "%d", k);

fclose(f);
fclose(g);

return 0;
}