Cod sursa(job #28310)

Utilizator dodgerblueBogdan P. dodgerblue Data 7 martie 2007 18:26:03
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.36 kb
#include<fstream.h>
long int n,s=1;

int cmmdc(int a, int b)
{
  while(a!=b)
    if(a>b) a=a-b;
    else b=b-a;
  return a;
}

int main()
{
  ifstream f("fractii.in");
  f>>n;
  f.close();

  for(int i=2;i<=n;i++)
    for(int j=1;j<i;j++)
      if(cmmdc(i,j)==1) s+=2;

  ofstream g("fractii.out");
  g<<s<<"\n";
  g.close();
  return 0;
}