Cod sursa(job #29579)

Utilizator UigresUigres Sergiu Uigres Data 9 martie 2007 16:26:49
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.27 kb
Raporteaza aceasta sursa 

#include <fstream.h>
main()
{ifstream in("fractii.in");
ofstream out("fractii.out");
long s=0,n,a,b,r;
in>>n;
for (int i=2;i<=n;i++)
for (int j=2;j<i;j++)
{a=i;b=j;
while (b) {r=a%b;a=b;b=r;}
if (a!=1) s++;
}
out<<n*n-n+1-2*s;
in.close();
out.close();
}