Cod sursa(job #63933)

Utilizator popdanyPop Daniela popdany Data 31 mai 2007 18:55:37
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.38 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;
}