Cod sursa(job #228176)

Utilizator Claudiu27121992Claudiu Oprea Claudiu27121992 Data 6 decembrie 2008 17:22: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,kn=0,a,b,x,y,r;
  ifstream in (Fin);
  in>>n;
  for (a=1; a<=n; a++)
   { for (b=1; b<=n; b++)
     { x=a;
       y=b;
       r=x%y;
       while (r!=0)
	{ x=y;
	  y=r;
	  r=x%y;
	}
       if (y==1) kn++;
     }
   }
  ofstream out (Fout);
  out<<kn;
  out.close();



 return 0;
}