Cod sursa(job #229092)

Utilizator frumushelRadu Lucian Andrei frumushel Data 9 decembrie 2008 09:13:59
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.46 kb
#include "fstream.h"
long prim(long a,long b)
{    
        int rest;    
        while ( b )  
        {    
          rest = a % b;    
          a = b;    
          b = rest;    
        }    
      if(a==1)return 1;
       else return 0;    
      }    
int main()
{
long n,nr=0;
ifstream f("fractii.in");
ofstream g("fractii.out");
f>>n;
for(long i=1;i<=n;i++)
for(long j=1;j<=n;j++)
if(prim(i,j))nr++;
g<<nr;
f.close();
g.close();
return 0;
}