Cod sursa(job #372129)

Utilizator cristomCristina T cristom Data 8 decembrie 2009 21:50:28
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.31 kb
Raporteaza aceasta sursa 
#include "fstream.h"
ifstream f("fractii.in");
ofstream g("fractii.out");
int main()
{long int n,a,b,x,y;
int r,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();
}