Cod sursa(job #2201742)

Utilizator andutu1270Vlad Andrei andutu1270 Data 5 mai 2018 19:42:18
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.5 kb
#include <iostream>
#include <fstream>

using namespace std;

ifstream fin("fractii.in");
ofstream fout("fractii.out");

int k,P,Q,a,b,r,N;
int main()
{
    k=0;
    fin>>N;
        for(P=1;P<=N;P++)
            for(Q=1;Q<=N;Q++)
        {
            a=P;
            b=Q;
            r=a%b;
            while(r)
            {
                a=b;
                b=r;
                r=a%b;
            }
            if(b==1)
                k++;
        }
fout<<k;
    return 0;
}