Cod sursa(job #847114)

Utilizator conradCondrea Radu conrad Data 3 ianuarie 2013 12:44:34
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.29 kb
Raporteaza aceasta sursa 
#include<fstream>
using namespace std;
int main()
{long p,q,n,r,x,z,nr=0;

ifstream f ("fractii.in");
ofstream g ("fractii.out");
    f>>n;
for(p=1;p<=n;p++)
for(q=1;q<=n;q++)
    {x=p;z=q;
    	  while(z!=0)
  {r=x%z;
   x=z;
   z=r;}

    if(x==1)
    nr++;}
g<<nr;
return 0;
}