Cod sursa(job #106237)

Utilizator teofilTeofil teofil Data 18 noiembrie 2007 14:36:39
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.41 kb
#include <fstream.h>
int ired(int p,int q)
{
  int rest;
  while (q){
        rest = p % q;
        p = q;
        q = rest;
    }
  if (p==1)
    return 1;
  else
    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;
}