Cod sursa(job #240992)

Utilizator stef1995mmarcu stefan ovidiu stef1995m Data 9 ianuarie 2009 08:05:58
Problema Fractii Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.38 kb
#include<fstream.h>
ifstream f("fractii.in");
ofstream g("fractii.out");
long n,nr;
int prim(int a,int b)
{  int r=a%b;
   while(r)
   {
      a=b;
      b=r;
      r=a%b;
   }
   if(b!=1)
      return 0;
   return 1;
}
int main()
{
   f>>n;
   nr=2*n;
   for(int i=2;i<=n;i++)
      for(int j=2;j<=n;j++)
	 if(prim(i,j)==1)
	    nr++;
   g<<nr;
   return 0;
}