Cod sursa(job #408059)

Utilizator EpicsteinGeorgescu Alexandru Lucian Epicstein Data 2 martie 2010 20:20:28
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.49 kb
#include <fstream.h>
unsigned cmmdc(unsigned long a, unsigned long b)
{
         if(b==0)
         {if(a==1)
         return 1;
         else
         return 0;
         }
         else
         return cmmdc(b,a%b);
}
int main()
{
    ifstream f("fractii.in");
    ofstream g("fractii.out");
    unsigned long n,p,q;
    unsigned s=0;
    f>>n;
    for(p=1;p<=n;p++)
    for(q=1;q<=n;q++)
    if(cmmdc(p,q)==1)
    s++;
    g<<s;
    f.close();
    g.close();
    return 0;
}