Cod sursa(job #281608)

Utilizator ioana_yanyioana pavel ioana_yany Data 15 martie 2009 14:44:03
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.38 kb
#include <fstream.h>
long n,q,p,c,s=0;

void cit()
{ifstream f("fractii.in"); f>>n; f.close();}

void afis()
{ofstream g("fractii.out");
 g<<s<<'\n'; g.close();}

long dc(long x, long y)
{long r=x%y;
 while(r>0)
  {x=y; y=r; r=x%y;}
 return y;
}

int main()
{cit();
 for(p=1;p<=n;p++)
  for(q=1;q<=n;q++)
   {c=dc(p,q);
    if(c==1) s++;
   }
 afis();
 return 0;
}