Cod sursa(job #189410)

Utilizator raulmRaul Mazilu raulm Data 14 mai 2008 14:12:42
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.36 kb
#include <iostream.h>
#include <fstream.h>
int main()
{
	int p,q,n,k,b,a;
	ifstream fin("fractii.in");
	ofstream fout("fractii.out");
	fin>>n;
	p=0;k=0;
	while (p<n)
	{
		p++;q=0;
		while (q<n)
		{
			q++;a=p;b=q;
			while (a!=b)
			{
				if (a>b)
					a-=b;
				if (b>a)
					b-=a;
			}
		if (a==1)
			k++;
		}
	}
	fout<<k;
	return 0;
}