Cod sursa(job #5864)

Utilizator skyelHighScore skyel Data 15 ianuarie 2007 19:02:01
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.45 kb
#include<fstream.h>
#include<math.h>

#define input "fractii.in"
#define output "fractii.out"


int irr(long p,long q)
	{

	while(p*q!=0)
		if(p>q)
			p=p%q;
		else
			q=q%p;
	return (p+q-1);
	}


int main()
	{
	long n,p,q,nr;

	ofstream fout(output);
	ifstream fin(input);
	fin>>n;
	nr=0;
	for(p=1;p<=n;p++)
		{
		for(q=1;q<=n;q++)
			if(!irr(p,q))
				nr++;
		}
	fout<<nr<<"\n";
	fin.close();
	fout.close();
	return 0;
	}