Cod sursa(job #281963)

Utilizator AlinaZZagan Alina-Elena AlinaZ Data 16 martie 2009 15:42:55
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.67 kb
#include <fstream>

using namespace std;

long N, P, Q;

void citire ()
{
    ifstream fin("fractii.in");
    fin>>N;
}

int cmmdc(long x,long y)
 {
    while (y)
     {
         int r=x%y;
         x=y;
         y=r;
     }
     return x;
 }

void afisare()
{
     long nr=0;
     ofstream fout("fractii.out");
     for (long P=1; P<=N; P+=2)
          for (long Q=1; Q<=N; Q++)
               if (cmmdc(P,Q)==1)
                   nr++;
     for (long P=2; P<=N; P+=2)
          for (long Q=1; Q<=N; Q+=2)
               if (cmmdc(P,Q)==1)
                   nr++;
     fout<<nr;
}

int main()
{
    citire();
    afisare();
    return 0;
}