Cod sursa(job #36487)

Utilizator bmanBalauta Bogdan bman Data 23 martie 2007 17:00:29
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.35 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*n;
	for(i=1;i<=n;i++)
		for(j=1;j<=n;j++)
			if(i!=1&&j!=1)
				if(cmmdc(i,j)!=1)s--;
	out<<s;
	out.close();
	return 0;
}