Cod sursa(job #151889)

Utilizator zepusSpuze Cristian-Iulius zepus Data 8 martie 2008 18:49:48
Problema Fractii Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.37 kb
#include <fstream.h>
void main()
  {
   ifstream f("fractii.in");
   ofstream g("fractii.out");
   unsigned long s,n,p,q,a,i,j;
   f>>n;
   s=n;
   for (i=2;i<=n;i++)
     for (j=1;j<=n;j++)
       {
	p=i; q=j;
	while (p!=q)
	  {
	   if (p>q)
	     p=p-q;
	   else
	     q=q-p;
	  }
	if (p==1)
	  s++;
       }
   g<<s;
   f.close();
   g.close();
  }