Cod sursa(job #17702)

Utilizator xtephanFodor Stefan xtephan Data 16 februarie 2007 18:21:50
Problema Fractii Scor 0
Compilator c Status done
Runda Arhiva de probleme Marime 0.67 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);

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


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

fclose(f);
fclose(g);

return 0;
}