Cod sursa(job #229079)

Utilizator frumushelRadu Lucian Andrei frumushel Data 9 decembrie 2008 08:02:30
Problema Fractii Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.33 kb
Raporteaza aceasta sursa 

#include<fstream.h>
long prim(long a,long b)
{
while(a!=b)
{if(a>b)a-=b;
else b-=a;
}
if(a==1)return 1;
else return 0;
}
long 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;
}