Cod sursa(job #224228)

Utilizator rusu_raduRusu Radu rusu_radu Data 29 noiembrie 2008 20:38:17
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.42 kb
#include <fstream.h>

unsigned int n, num, a, b, r, N, nr;
ifstream fin("fractii.in");
ofstream fout("fractii.out");
int main()
{
  fin>>n;
  num=1;
  while (num<=n)
    {
      N=1;
      while (N<=n)
	{
	  a=num;
	  b=N;
	  while (b!=0)
	    {
	     r=a%b;
	     a=b;
	     b=r;
	    }
	  if (a==1)
	    nr+=1;
	  N+=1;
	}
      num+=1;
    }
  fout<<nr;
  fout.close();
  fin.close();
  return 0;
}