Cod sursa(job #377979)

Utilizator pufuPufu Cristian pufu Data 27 decembrie 2009 09:40:36
Problema Fractii Scor 10
Compilator c Status done
Runda Arhiva de probleme Marime 0.53 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 = N + N - 1;
	for (P = 2; P <= N; P++)
		for (Q = 2; Q <= N; Q++)
		{
			if (((P % Q) != 0) && (P > Q) && euclid(P, Q) == 1)
				k++;
			if (((Q % P) != 0) && (Q > P) && euclid(P, Q) == 1)
				k++;	
		}

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

	fclose(f);
	fclose(g);

	return 0;
}