Cod sursa(job #7970)

Utilizator razvan_3dragomir razvan razvan_3 Data 23 ianuarie 2007 15:11:51
Problema Fractii Scor 10
Compilator c Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
#include <stdio.h>
int main()
{
long long int p,q,N,a,b,r,rez;
freopen ("fractii.in","r",stdin);
freopen ("fractii.out","w",stdout);
scanf ("%lld",&N);
rez=2*N-1;
for (p=2;p<=N;p++)
	{
	for (q=2;q<=N;q++)
		{
		a=p;b=q;
		while (b!=0)
			{
			r=a%b;
			a=b;
			b=r;
			}
		if (a==1) rez++;
		}
	}
printf ("%lld",rez);
return 0;
}