Cod sursa(job #394306)

Utilizator meandyou01George Tudor meandyou01 Data 10 februarie 2010 19:13:00
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.51 kb
#include<fstream.h> 
ifstream fin("fractii.in"); 
ofstream fout("fractii.out"); 
long n,i,j,s,r,i1,j1;
int main() 
{fin>>n; 
   for(i=1;i<=n;i++) 
     for(j=1;j<=n;j++) 
     {/* sw=1;
       if(i<=j)min=i;else min=j;
       for(k=2;k<=min;k++)
       if(i%k==0 && j%k==0){sw=0;break;}
       if(sw==1)s++;
       */
       i1=i;
       j1=j;
       r=i1%j1;
       while(r)
       {i1=j1;
	j1=r;
	r=i1%j1;
       }
      if(j1==1)s++;
     }

fout<<s;
fin.close();
fout.close(); 
return 0;
}