Cod sursa(job #106241)

Utilizator teofilTeofil teofil Data 18 noiembrie 2007 14:41:15
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.37 kb
#include <fstream.h>
int ired(int p,int q)
{
  while (p!=q)
  {
	if (p>q)
		p-=q;
	else
		q-=p;
  }
  if (p==1)
    return 1;
  return 0;
}
int main()
{
	int p,q,n,k=0;
	ifstream f("fractii.in");
	ofstream g("fractii.out");
	f>>n;
	for (p=1;p<=n;p++)
		for (q=1;q<=n;q++)
			if (ired(p,q))
				k++;
	g<<k;
	f.close();
	g.close();
	return 0;
}