Cod sursa(job #63941)

Utilizator popdanyPop Daniela popdany Data 31 mai 2007 19:09:30
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.4 kb
#include<fstream.h>
 unsigned long int i,j,N,nr,min,p,d;
 int main()
 {ifstream fin("fractii.in");
  ofstream fout("fractii.out");
  fin>>N;
  for(i=1;i<=N;i++)
   for(j=1;j<=N;j++)
     {min=0;
      if(j<=i) min=j;
      else     min=i;
      p=1;
       for(d=2;d<=min;d++)
	 if(i%d==0&&j%d==0) p=0;
       if(p) nr++;
     }
  fout<<nr;
  fin.close();
  fout.close();
  return 0;
 }