Cod sursa(job #419531)

Utilizator bam67Blidar Adrian Marian bam67 Data 17 martie 2010 17:51:46
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.29 kb
#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=1;q<=n;q++)
     for(p=1;p<=n;p++)
     { auxp=p;auxq=q;
     while(auxq!=0)
       {r=auxp%auxq;auxp=auxq;auxq=r;}
      if(auxp==1) k++;}
g<<k;
return 0;}