Cod sursa(job #230199)

Utilizator loooolGhardan Tudor looool Data 13 decembrie 2008 11:25:27
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.52 kb
#include<fstream.h>   
#define fin "fractii.in"   
#define fout "fractii.out"   
  
int main()   
  
{ long n,a,b,kn,c,d;   
  int r;   
  ifstream in(fin);   
  in>>n;   
  for (a=1; a<=n; a++)   
   { for(b=1; b<=n; b++)   
    {    c=b;   
     d=a;   
     r=c%d;   
  
    while (r!=0)   
    {   c=d;   
        d=r;   
        r=c%d;   
    }   
  
    if (d==1) kn++;   
      }   
    }   
  ofstream out(fout);   
  out<<kn;   
  in.close ();   
  out.close();   
  
  return 0;   
}