Cod sursa(job #11739)

Utilizator portocalaDiculescu Elena Alexandra portocala Data 1 februarie 2007 15:29:18
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.32 kb
Raporteaza aceasta sursa 
#include<fstream.h>

int main()
{unsigned long n,s,i,j,a,b,r;
ifstream f("fractii.in");
f>>n;
f.close();
s=0;
for(i=1;i<=n;i++)
 {for(j=1;j<=n;j++)
   {a=i;b=j;r=a%b;
    while(r)
     {a=b;
      b=r;
      r=a%b;
     }
   if(b==1)s++;
   }
 }
ofstream g("fractii.out");
g<<s<<'\n';
g.close();
return 0;
}