Cod sursa(job #656025)

Utilizator B.A.T.FMI Serban Calin B.A.T. Data 3 ianuarie 2012 19:50:26
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.28 kb
Raporteaza aceasta sursa 
#include<fstream>
using namespace std;
int main()
{int n,p,q,nr=0,r,s;
ifstream f("fractii.in");
ofstream g("fractii.out");
f>>n;
nr=2*n-1;
for(p=2;p<=n;p++)
for(q=2;q<=n;q++)
{r=p;
s=q;
while(r!=s)
{if(r>s) r=r-s;
else s=s-r;}
if(r==1) nr++;}
g<<nr;
return 0;}