Cod sursa(job #288185)

Utilizator FaLLenShAdOwDubau Gabriel Dan FaLLenShAdOw Data 25 martie 2009 17:02:30
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.32 kb
Raporteaza aceasta sursa 
#include<fstream.h>
long cmmdc(long a,long b)
{long i;
 while(b)
 {i=a%b;
  a=b;
  b=i;
 }
 return a;
}
int main()
{long n,j,i,s=0;
 ifstream f("fractii.in");
 f>>n;
 f.close();
 for(i=1;i<=n;i++)
  for(j=1;j<=n;j++)
   if(cmmdc(i,j)==1)s++;
 ofstream g("fractii.out");
 g<<s;
 g.close();
 return 0;
}