Cod sursa(job #419653)

Utilizator bam67Blidar Adrian Marian bam67 Data 17 martie 2010 19:36:41
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.3 kb
Raporteaza aceasta sursa 
#include <fstream.h>
int n,q,p,k=0,auxp,auxq,r;
int main()
{ifstream f("fractii.in");
ofstream g("fractii.out");
f>>n;
for(q=2;q<=n;q++)
     for(p=2;p<=n;p++)
     { auxp=p;auxq=q;
     while(auxq!=0)
       {r=auxp%auxq;auxp=auxq;auxq=r;}
      if(auxp==1) k++;}k=k+2*n-1;
g<<k;
return 0;}