Cod sursa(job #272832)

Utilizator valentinroscaRosca Valentin valentinrosca Data 7 martie 2009 20:51:02
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 1.01 kb
    #include<fstream.h>
    #include<math.h>  
    long n,i,j,s,ci,cj,r;  
    ifstream fin("fractii.in");  
    ofstream fout("fractii.out");  
    int main()  
	 {  
        fin>>n;  
        for(i=1;i<=n;i++)  
       {  
           for(j=1;j<=n;j++)  
           {  
               ci=i;  
               cj=j;  
               if(ci>cj)  
	       {
                   do  
                   {  
                       r=ci%cj;  
                       ci=cj;  
                       cj=r;  
                   }  
                   while(r);  
                   if(ci==1)  
                       s++;  
               }  
               else  
	       {
                   do  
                   {  
                       r=cj%ci;  
                       cj=ci;  
                       ci=r;  
                   }  
                   while(r);  
                   if(cj==1)  
		       s++;
               }  
           }  
       }  
       fout<<s;  
      return 0; 
}