Cod sursa(job #283144)

Utilizator yotherockerPuia Tudor yotherocker Data 18 martie 2009 19:56:21
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.38 kb
#include<fstream.h>

long cmmdc(long a,long b)
{
	long r;
	do
	{
		r=a%b;
		a=b;
		b=r;
	}while(r);
	return a;
}

main()
{
	ifstream In("fractii.in");
	ofstream Out("fractii.out");
	long n,fractii=0,i,j;

	In>>n;
	In.close();

	for(i=1;i<=n;i++)
	  for(j=1;j<=n;j++)
	     if(cmmdc(i,j)==1) fractii++;


	Out<<fractii<<'\n';

	Out.close();
	return 0;
}