Cod sursa(job #1642987)

Utilizator calinfloreaCalin Florea calinflorea Data 9 martie 2016 17:09:12
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.52 kb
#include <fstream>

using namespace std;

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