Cod sursa(job #29373)

Utilizator cponofreiOnofrei Paul Cristian cponofrei Data 9 martie 2007 10:12:54
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
#include"fstream.h"
int main()
{
 int n,p,q,k=0,a,b;
 ifstream in("fractii.in");
 ofstream out("fractii.out");
 in>>n;
 for(p=1; p<=n; p++)
  for(q=1; q<=n; q++)
  {
   a=p;
   b=q;
   while(a!=b)
   {
    if(a>b)
    a=a-b;
    else
    b=b-a;
   }
   if(a==1)
   k++;
  }
 out<<k;
 in.close();
 out.close();
 return 0;
}