Cod sursa(job #28181)

Utilizator bacerandreiBacer Andrei bacerandrei Data 7 martie 2007 16:12:00
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
#include<fstream.h>
long int n,i,j,nr;
long int cmmdc(long int a,long int b)
{
 long int r;
  while(b!=0)
   {
    r=a%b;
    a=b;
    b=r;
   }
  return a;
}
int main()
{
 ifstream f("fractii.in");
 ofstream g("fractii.out");
  f>>n;
   for(i=1;i<=n;i++)
    for(j=1;j<=n;j++)
     if(cmmdc(i,j)==1)
      nr++;
    g<<nr;
return 0;
}