Cod sursa(job #87985)

Utilizator marcel9105Marcel Grec marcel9105 Data 29 septembrie 2007 22:27:35
Problema Fractii Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.43 kb
#include<fstream.h>
int cmmdc(unsigned long a, unsigned long b)
{
 unsigned long r;
 if(a%b==0) return 0;
 if(b%a==0) return 0;
 r=a%b;
 while(r)
  {
   a=b;
   b=r;
   r=a%b;
  }
return b;
}
int main()
{
 ifstream fin("fractii.in");
 ofstream fout("fractii.out");
 unsigned long a,b,n,c=0;
 fin>>n;
 for(a=2;a<=n;a++)
    for(b=1;b<=n;b++)
        if(cmmdc(a,b)==1) c++;
 fout<<c+n;
 fout.close();
 return 0;
}