Cod sursa(job #377976)

Utilizator pufuPufu Cristian pufu Data 27 decembrie 2009 09:26:45
Problema Fractii Scor 10
Compilator c Status done
Runda Arhiva de probleme Marime 0.42 kb
#include <stdio.h>
#include <stdlib.h>

int euclid(int a, int b)
{
	int c;
	while (b)
	{
		c = a % b;
		a = b;
		b = c;
	}
	return a;
}

int main()
{
	int N, P, Q, k;
	FILE *f, *g;
	
	f = fopen ("fractii.in", "r");
	g = fopen ("fractii.out", "w");

	fscanf (f, "%d", &N);

	k = 0;
	for (P = 1; P <= N; P++)
		for (Q = 1; Q <= N; Q++)
			if (euclid(P, Q) == 1)
				k++;

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

	fclose(f);
	fclose(g);

	return 0;
}