Cod sursa(job #50244)

Utilizator spixMarius Gherman spix Data 7 aprilie 2007 11:48:30
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.42 kb
#include <fstream.h>
ifstream in("fractii.in");
ofstream out("fractii.out");

    int main()
     { register int a,b,n,p,q,numar;
       in>>n;
       numar=n;
	for(p=2;p<=n;p++)
	 for(q=1;q<=n;q++)
	    { if ((p!=q+1)&&(q!=p+1))
	      {
		 a=p;b=q;
		 while(a!=b)
		 {
		  if (a>b) a=a-b;
		  else b=b-a;
		  }
		  if (a==1) numar++;
	      }
	     else numar++;
	   }
	out<<numar;
	return 0;
      }