Таня написала на полоске бумаги подряд следующие цифры: После этого она склеила полоску в кольцо, то есть за последней единицей теперь идет первая единица. Затем Таня разрезала кольцо между двумя цифрами так, что развернув кольцо в полоску, получилось наименьшее число. Найдите его.

Var m : array[0..6] of Integer;
  i,k,N : Integer;
Begin
  For i:=0 to 6 do m[i]:=0;
  Readln(N);
  k:=6;
  While N>0 do
  Begin
    If N>=Power(2,k) then
    Begin
      N:=N-Trunc(Power(2,k));
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=0 to 6 do Writeln(Power(2,i),'  ',m[i],' шт.');
end.

Еще вариант:
Const
  NN = 7;
  money : array[1..7] of Integer = (1,2,4,8,16,32,64);
Var m : array[1..NN] of Integer;
  i,k,N : Integer;
Begin
  For i:=1 to NN do m[i]:=0;
  Readln(N);
  k:=NN;
  While N>0 do
  Begin
    If N>=money[k] then
    Begin
      N:=N-money[k];
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=1 to NN do Writeln(money[i],'  ',m[i],' шт.');
end.

#include <iostream>

#include <vector>

using namespace std;

void bubbleSort(vector<int> &a_){

   vector<int> t;

   int n = a_.size();

   for(int i = 0; i < n; i++)

       for(int j = 0; j < n - i - 1; j++)

           if(a_[j] > a_[j + 1])

               swap(a_[j], a_[j + 1]);

   for(auto &i: a_) if(i & 1) t.push_back(i);

   a_ = t;

}

void solve(){

   vector<int> a = {2, 10, 5, 3, 11, 9, 12};

   bubbleSort(a);

   cout << "a = {";

   for(int i = 0; i < a.size() - 1; i++)

       cout << a[i] << ", ";

   cout << a.back() << "}";

}

int main(){

   solve();

}