Cod sursa(job #240972)

Utilizator ValyMitrea Valentin Gabriel Valy Data 8 ianuarie 2009 23:44:31
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.36 kb
#include<stdio.h>
int main()
{
	long N,p,q,p2,q2,r; int nr=0;
	freopen("fractii.in","r",stdin);
	freopen("fractii.out","w",stdout);
	scanf("%ld",&N);
	for (p=1;p<=N;p++)
	{
		for (q=1;q<=N;q++)
		{
			p2=p;
			q2=q;
			r=p2%q2;
			while (r)
			{
				p2=q2;
				q2=r;
				r=p2%q2;
			}
			if (q2==1) nr+=1;
		}
	}
	printf("%d",nr);
	return 0;
}