Cod sursa(job #223821)

Utilizator whitewolf12Eugen Secara whitewolf12 Data 29 noiembrie 2008 14:59:13
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.36 kb
#include<fstream.h>
int main()
{ int n,x,i,r,a,b,nd;
  ifstream fin("fractii.in");
  ofstream fout("fractii.out");
  fin>>n;
  nd=0;
  for(x=1; x<=n; x++)
	 for(i=1; i<=n; i++)
	       { a=x; b=i;
		 r=a%b;
		 while(r!=0)
			{ a=b;
			  b=r;
			  r=a%b;
			}
		 if(b==1 && (i==1 || i!=x)) nd++;
	       }
  fout<<nd;
  fout.close();
  return 0;
}