Cod sursa(job #546654)

Utilizator Oancea.CatalinOancea Catalin Oancea.Catalin Data 5 martie 2011 12:15:14
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.59 kb
#include<fstream>
using namespace std;
FILE *f, *g;
long long i, k, p, q, n, nr, a, b, dc, r, var;
int main()
{
	f=fopen("fractii.in", "r");
	g=fopen("fractii.out","w");
	fscanf(f,"%lld", &n);
	nr=1;
	for(i=1; i<=n; i++)
	{
		for(k=1; k<=n; k++)
		{
			p=i;
			q=k;
			if(q==1) continue;
			a=p;
			b=q;
			if(a>b)
			{
				while(b!=0)
				{
					r=a%b;
					a=b;
					b=r;
				}
				dc=a;
			}
			else
			{
				while(a!=0)
				{
					r=b%a;
					b=a;
					a=r;
				}
				dc=b;
			}
			if(dc==1)
				nr++;
		}
	}
	var=nr+n-1;
	fprintf(g,"%lld", var);
	return 0;
}