Cod sursa(job #642420)

Utilizator mircea.dobreanuMircea Dobreanu mircea.dobreanu Data 1 decembrie 2011 12:23:51
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.46 kb
/* http://infoarena.ro/problema/fractii */
#include <fstream>
using namespace std;
int divizor (long x, long y)
{
	int r;
	while (y!=0)
	{
		r=x%y;
		x=y;
		y=r;
	}
	return x;
}
int main()
{
	long nrf=0,p,q,n;
	ifstream fin("fractii.in");
	fin>>n;
	fin.close();
	ofstream fout("fractii.out");
	for(p=1;p<=n;p++)
	{
		for(q=1;q<=n;q++)
		{
			if (divizor(p,q)==1)
			{
				nrf++;
			}
		}
	}
	fout<<nrf<<'\n';
	fout.close();
	return 0;
}