Cod sursa(job #383860)

Utilizator vladtarniceruVlad Tarniceru vladtarniceru Data 18 ianuarie 2010 14:38:07
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.28 kb
Raporteaza aceasta sursa 
#include<fstream.h>
ifstream f("fractii.in");
ofstream g("fractii.out");
long r,n,nr=0,p,q,d,i;
int main()
{f>>n;
 for(p=1;p<=n;p++)
  for(q=1;q<=n;q++)
   {d=p; i=q;
    while(i!=0) {r=d%i; d=i; i=r;}
    if(d==1) nr++;
   }
 g<<nr<<"\n"; g.close(); f.close(); return 0;
}