Cod sursa(job #656015)

Utilizator B.A.T.FMI Serban Calin B.A.T. Data 3 ianuarie 2012 19:40:51
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.26 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;
for(p=1;p<=n;p++)
for(q=1;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;}