Cod sursa(job #10156)

Utilizator sigridMaria Stanciu sigrid Data 27 ianuarie 2007 22:29:20
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.49 kb
#pragma option -3 -a -Z -O2 -r
#include<fstream.h>
unsigned long n;
int nrprime(unsigned long x,unsigned long y)
{unsigned long r;
 do
  {r=x%y;
   x=y;
   y=r;
  }
 while(r);
 if(x==1) return 1;
   else return 0;
}
int main()
{unsigned long i,j,c=0;
 ifstream f("fractii.in");
 ofstream g("fractii.out");
 f>>n;
 //cout<<"n="; cin>>n;
 f.close();
 c=2*n-1;
 for(i=2;i<=n;i++)
  for(j=2;j<=n;j++)
   if(nrprime(i,j)) c++;
 //cout<<c<<'\n';
 g<<c<<'\n';
 g.close();
return 0;
}