Cod sursa(job #52578)

Utilizator MirceampMuresan Mircea Paul Mirceamp Data 19 aprilie 2007 12:01:35
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.38 kb
#include<fstream.h>
#include<math.h>

int n,c,i,j,x,y,r;

int main()
{  ifstream fin("fractii.in");
   ofstream fout("fractii.out");
   fin>>n;
   c=0;
   for(i=2;i<=n;i++)
		for(j=2;j<=n;j++)
		{ x=i;
		  y=j;
		  while(x!=y)
		  if(x>y)
			x-=y;
		  else
			y-=x;
		  if(y!=1) c++;
		}
   fout<<(int)pow(n,2)-c;
   fin.close();
   fout.close();
   return 0;
}