Cod sursa(job #36497)

Utilizator bmanBalauta Bogdan bman Data 23 martie 2007 17:06:31
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.36 kb
#include <fstream.h>
int cmmdc(int i,int j)
{	while(i!=j)
	{	if(i>j)i=i-j;
		else j=j-i;
	}
	return i;
}

int main()
{	long n,k,s,i,j;
	ifstream in("fractii.in");
	ofstream out("fractii.out");
	in>>n;
	in.close();
	s=n*2-1;
	for(i=2;i<=n;i++)
		for(j=2;j<=n;j++)
			if(i!=1&&j!=1)
				if(cmmdc(i,j)==1)s++;
	out<<s;
	out.close();
	return 0;
}