Cod sursa(job #229085)

Utilizator frumushelRadu Lucian Andrei frumushel Data 9 decembrie 2008 08:05:45
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.33 kb
#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;
}
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;
}