Cod sursa(job #1429945)

Utilizator vlad.bugnariuBugnariu Vlad vlad.bugnariu Data 7 mai 2015 16:54:44
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
#include <fstream>
using namespace std;
int cmmdc(int a, int b)
{
	int r=a%b;
	while(r!=0)
	{
		a=b;
		b=r;
		r=a%b;
	}
	return b;
}
ifstream fin("fractii.in");
ofstream fout("fractii.out");
int main()
{
	int p,q,n,nr=0;
	fin>>n;
	for(p=1; p<=n; p++)
		for(q=1; q<=n; q++)
			if(cmmdc(p, q)==1)
				nr++;
	fout<<nr;
	return 0;
}