Cod sursa(job #240991)

Utilizator stef1995mmarcu stefan ovidiu stef1995m Data 9 ianuarie 2009 08:02:09
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.37 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;
   for(int i=1;i<=n;i++)
      for(int j=1;j<=n;j++)
	 if(prim(i,j)==1)
	    nr++;
   g<<nr;
   return 0;
}