Cod sursa(job #63930)

Utilizator popdanyPop Daniela popdany Data 31 mai 2007 18:28:44
Problema Fractii Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.36 kb
#include<fstream.h>
unsigned long int i,j,n,nr,min,p,d;
int main()
{ ifstream fin("date.in");
  ofstream fout("date.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;
}