Cod sursa(job #403940)

Utilizator mada_diaconuMada Diaconu mada_diaconu Data 25 februarie 2010 16:40:26
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
#include<iostream>
#include<fstream>
using namespace std;
int cmmdc (int a,int b)
{
	while (a!=b)
		if(a>b)
			a=a-b;
		else
			b=b-a;
	return a;
}
ifstream f("fractii.in");
ofstream g("fractii.out");
int main()
{
	int n,p,q,r=0;
	f>>n;
	for (p=1;p<=n;p++)
		for(q=1;q<=n;q++)
			if (cmmdc(p,q)==1)
				r++;
	g<<r;
	return 0;
}