Cod sursa(job #17690)

Utilizator xtephanFodor Stefan xtephan Data 16 februarie 2007 17:55:24
Problema Fractii Scor 10
Compilator c Status done
Runda Arhiva de probleme Marime 0.38 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 main()
{

long 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; i++)
	{
	for(j=1; j<=n; j++)
		{if(ireductibil(i,j)==1) k++;}
	}

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

fclose(f);
fclose(g);

return 0;
}