Cod sursa(job #372128)

Utilizator cristomCristina T cristom Data 8 decembrie 2009 21:45:54
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.3 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=0;
	
	f>>n;
f.close();
for(a=1;a<=n;a++)
	for(b=1;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();
}