Cod sursa(job #372132)

Utilizator cristomCristina T cristom Data 8 decembrie 2009 22:07:38
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.32 kb
Raporteaza aceasta sursa 
#include "fstream.h"
ifstream f("fractii.in");
ofstream g("fractii.out");
int main()
{long int n,a,b,x,y,r;
long long nrf;
	
	f>>n;
f.close();
nrf=2*n-1;
for(a=2;a<=n;a++)
	for(b=2;b<=n;b++)
	{x=a;
	y=b;
		while(y!=0)
		{
			r=x%y;
			x=y;
			y=r;
		}
		if(x==1)nrf++;
	}
	g<<nrf;
	g.close();
}