Cod sursa(job #56466)

Utilizator vladbBogolin Vlad vladb Data 29 aprilie 2007 17:12:33
Problema Fractii Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.68 kb
#include<fstream>
#include<math.h>

using namespace std;

int n,c,i,j,x,y,r;

int main()
{  ifstream fin("fractii.in");
   ofstream fout("fractii.out");
   fin>>n;
   c=0;
   for(i=1;i<n-1;i++)
          for(j=1;j<n;j++)
          {    x=i;
               y=j;
               if(i%j==0) c++;
               else if(j%i==0) c++;
                    else{ while(x%y)
                          { r=x%y;
                           x=y;
                           y=r;
                          } 
                          if(y!=1) c++;
                          }
          }                       
   fout<<(int)pow(n,2)-c;
   fin.close();
   fout.close();
   return 0;
}