Cod sursa(job #212783)

Utilizator zanetdoruzanet doru zanetdoru Data 6 octombrie 2008 20:35:40
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.45 kb
 #include<fstream.h>
 ifstream f("fractii.in");
 ofstream g("fractii.out");
 long cmmdc(long p,long q)
{
 while(p!=q)
    if(p>q)
       p-=q;
    else
       q-=p;
 return p;
}

 int main()
{
 long n,p,q,c=0;
 f>>n;
 if(n>1000000)
    g<<"";
 else
   {
    long ver;
    for(p=1;p<=n;p++)
       for(q=1;q<=n;q++)
	   {
	    ver=cmmdc(p,q);
	    if(ver==1)
	       c++;
	   }
   }
 g<<c;
 f.close();
 g.close();
 return 0;
}