Cod sursa(job #229585)

Utilizator marius.stefanStefan Marius Deaconu marius.stefan Data 10 decembrie 2008 19:20:43
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.39 kb
#include<fstream.h>
#define fin "fractii.in"
#define fout "fractii.out"

int main()

{ long n,a,b,kn,c,d;
  int r;
  ifstream in(fin);
  in>>n;
  for (a=1; a<=n; a++)
   { for(b=1; b<=n; b++)
    {    c=b;
	 d=a;
	 r=c%d;

	while (r!=0)
	{	c=d;
		d=r;
		r=c%d;
	}

	if (d==1) kn++;
      }
    }
  ofstream out(fout);
  out<<kn;
  in.close ();
  out.close();

  return 0;
}