Cod sursa(job #306062)

Utilizator beyond_k7aOnutu Catalin beyond_k7a Data 19 aprilie 2009 16:56:24
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.36 kb
#include<fstream>
using namespace std;
long n,s,i,j;
long cmmdc(long a, long b)
{
 if(b==0)
  return a;
 return cmmdc(b,a%b);   
}
int main()
{
 ifstream f("fractii.in");
 ofstream g("fractii.out");
 
 f>>n;
 s=n;
 for(i=2;i<=n;i++)
 {
  for(j=1;j<=n;j++)
   if(cmmdc(i,j)==1)
    s++;
 }
 g<<s;
 
 
 
 f.close();
 g.close();
 return 0;   
}