Cod sursa(job #9399)

Utilizator sigridMaria Stanciu sigrid Data 27 ianuarie 2007 15:14:33
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.48 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();
 for(i=1;i<=n;i++)
  for(j=1;j<=n;j++)
   if(nrprime(i,j)) c++;
 //cout<<c<<'\n';
 g<<c<<'\n';
 g.close();
return 0;
}