Cod sursa(job #10902)

Utilizator c_iulyanCretu Iulian c_iulyan Data 29 ianuarie 2007 21:28:01
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.3 kb
Raporteaza aceasta sursa 
#include <fstream.h>
long k,n,r;
int cm(int a,int b)
{while (b!=0)
{r=a%b;
a=b;
b=r;
}
return a;}
int main ()
{ifstream f("fractii.in");
ofstream g("fractii.out");
f>>n;
for(long i=2;i<=n;i++)
for(long j=2;j<=n;j++)
if(cm(i,j)==1) k++;
g<<k+2*n-1;
f.close();
g.close();
return 0;
}