Cod sursa(job #51427)

Utilizator Snavenportnespecificat Snavenport Data 12 aprilie 2007 14:07:31
Problema Fractii Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.41 kb
#include <fstream.h>
ifstream f("fractii.in");
ofstream g("fractii.out");
int main()
{
  long k=0,l,sw,a,b,i,j,n;
  f>>n;
  f.close();
  for (i=1;i<=n;i++)
   {
    a=i;
    for (j=1;j<=n;j++)
      {
       b=j;      
       sw=0;
       for (l=2;l<=j && sw==0;l++)
	 if (a%l==0 && b%l==0)
            sw=1;
       if (sw==0)
	k++;
      }
   }
   g<<k;
   g.close();
   return 0;
}