Cod sursa(job #198554)

Utilizator popdanyPop Daniela popdany Data 12 iulie 2008 14:52:35
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.44 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;   
}