Cod sursa(job #29587)

Utilizator c_e_manuEmanuel Cinca c_e_manu Data 9 martie 2007 16:56:44
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.33 kb
Raporteaza aceasta sursa 
#include<fstream.h>

int main()
{	ifstream f("fractii.in");
	ofstream g("fractii.out");
	unsigned long p,q,n,k,_p,_q,r;
	f>>n;k=n;
	for(p=1;p<=n;p++)
		for(q=2;q<=n;q++)
		{       _q=q;_p=p;
			while(_q!=0)
			{	r=_p%_q;
				_p=_q;
				_q=r;
			}
			if(_p==1) k++;
		}
	g<<k;
	f.close();
	g.close();
	return 0;
}