Cod sursa(job #116140)

Utilizator panlauPantelimon Laurentiu panlau Data 17 decembrie 2007 21:07:58
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.38 kb
#include <fstream.h>
unsigned long int n,i,j,r,a,b,nr;
ifstream f("fractii.in");
ofstream g("fractii.out");
int main()
{
	f>>n;
	f.close();
	nr=0;
	for(i=1;i<n;i++)
		for(j=i;j<=n;j++)
		{
			a=i;b=j;
			r=a%b;
			while(r!=0)
			{
				a=b;
				b=r;
				r=a%b;
			}
			if(b==1)
				if(i!=j)
					nr=nr+2;
				else
					nr++;
		}
	g<<nr;
	g.close();
	return 0;
}