Cod sursa(job #1561467)

Utilizator BogdanT01Bogdan Tailup BogdanT01 Data 4 ianuarie 2016 10:09:02
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.56 kb
#include <fstream>

using namespace std;

int main()
{int i,j,n,s,p,q,r;
ifstream in("fractii.in");
in>>n;
in.close();
s=1;
i=1;
while (i<=n)
{
     j=1;
      while(j<=n)
      {
           if(i!=j)
           {
               p=i;
               q=j;
                while(p%q!=0)
                {
                    r=p%q;
                    p=q;
                    q=r;
                }
                if(q==1)s++;
           }
           j++;
      }
      i++;
}
ofstream out("fractii.out");
out<<s;
out.close();
    return 0;
}