Cod sursa(job #278377)

Utilizator beyond_k7aOnutu Catalin beyond_k7a Data 12 martie 2009 11:55:26
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.33 kb
#include<fstream.h>
int cmmdc(long a, long b)
{
 while(a!=b)
  if(a>b)
	a-=b;
  else
	b-=a;
 return a;
}
long int n,i,j,nr=0;
int main()
{
 ifstream f("fractii.in");
 ofstream g("fractii.out");


 f>>n;
 for(i=1;i<=n;i++)
  for(j=1;j<=n;j++)
	if(cmmdc(i,j)==1)
	 nr+=1;
 g<<nr;
 f.close();
 g.close();
 return 0;

}