#include <iostream>
using namespace std;

long chislo(long i)//wytreshen cikyl
 {long j;
  // iteratiwen wariant za prowerka broj cifri 1 w dwoichnoto predstawqne
  j=0;//inicializirane na suma ot 1 w dwoichnoto predstawqne
    while (i>0)
   {j +=i & 1;//operaciq AND dali chisloto e chetno ili ne, dali poslednata cifra e 0 ili 1
     i=i>>1;//izmestwane s 1 razrqd nadqsno  
    }//while 
   return j;
} // iteraciq broj cifri 1 w chisla 

long redica(long m)//wynshen cikyl
{ long j,k,n; 
   // wariant iteraciq za obhovdane na wsichki chisla ot interwala
   j=0;//inicializirane na obshata suma
  for (k=1; k<=m;k++)
    {n=chislo(k);//broj 1-ci w porednoto estestweno chislo
     j+=n;    // broj edinici w porednoto chislo
     //sledwashiq red e samo za iliustraciq - movete da go ostawite kato komentar
     //cout<<"Chisloto "<<k<<" w 2-ichna brojna sistema ima "<<n<<" broq 1-ci\n";
   }//for  
    return j; 
 }// iteraciq cifri w chislo 

long chislo1(long i)//wlovena rekursiq 
   { long m;
   // wariant rekursiq za prowerka broj 1-ci w dwoichnoto predstawqne
    m= i & 1;//dali poslednata mu cifra e 1
     if (i>0) {i=i>>1; return chislo(i)+m;}
    else return 0;    
}// rekursiq cifri 1 pri dwoichno predstawqne na chislo

 long redica1(long m)
   {//  wariant rekursiq za obhovdane na wsichki chisla ot interwala
      if (m>0) {return redica1(m-1)+chislo(m);}
      else return 0;
    }// rekursiq obhovdane na chisla 

   long redica2 (long m) //funkciq s wloven cikyl
    // wariant iteraciq s wloven cikyl za prowerka broj 1 w dwoichnoto predstawqne
   {long i,j,N,sum=0;
     for (i=1;i<=m;i++)//obhovdane na wsichki chisla ot interwala
   { N=i;//porednoto chislo ot interwala
    while (N>0)//broj 1-ci w chsiloto, predstaweno w 2-ichna brojna sistema
        { sum+=N%2;//dali chisloto e chetno - celochislen ostatyk
          N/=2; //namalqwame 2-pyti chisloto - celochisleno delene
     }//while
    }//for
   return sum;
}// iteraciq broj cifri 1 w chisla  

int main ()
{ long m,n; 
   char ose;
   cout<<"Imate wywedeno estestweno chislo M ot interwala [5..50005].\n";
   cout<<"Da se systawi programa,  chrez koqto se izchislqwa obshiq broj\n";
   cout<<"na 1-cite pri predstawqne na wsichki estestweni chisla ot 1\n";
   cout<<"do wywedenoto wkluichitelno w 2-ichna brojna sistema.\n";
   cout<<"Primer: 10 Izhod 17\n";
    do {
       cout<<"Wywedete chislo [5..1005]: ";cin>>m;
       n=redica(m);
       cout<<"Pri iteratiwniq wariant obsh broj 1-ci w redicata: "<<n<<endl; 
       n=redica1(m);//wsichki chisla ot interwala 1..m wkluichitelno
       cout<<"Pri wariant s rekursiq obsh broj 1-ci w redicata: "<<n<<endl;    
       n=redica2(m);
       cout<<"Pri wariant s wloven cikyl obsh broj 1-ci w redicata: "<<n<<endl; 
       cout<<"She wywevdate li drugi chisla <y/n>: ";cin>>ose;
    } while (ose=='y');
    system("pause");
    return 0;
}//kraj na programa cifri w chisla rekursiq