Cod sursa(job #113251)

Utilizator J4cKDerevenschi Adrian J4cK Data 9 decembrie 2007 13:08:24
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.33 kb
#include <fstream.h>
int main()
{
	long p,n,s=0,q,c,cp,cq;
	ifstream fin("fractii.in");
	ofstream fout("fractii.out");
	fin>>n;
	for (p=1; p<=n; p++)
	{
		for (q=1; q<=n; q++)
		{
			cp=p;
			cq=q;
			while (cq)
			{
				c=cp%cq;
				cp=cq;
				cq=c;
			}
			if (cp==1)
				s=s+1;
		}
	}
	fout<<s;
	return 0;
}