Сколько раз исполнится следующий цикл: i:=21; Repeat i:=i-5 Until i<=6;

1) 10111₂ → 27₈ → 23₁₀

2) 10111₂ → 17₁₆ → 23₁₀

3) 15₁₀ → 17₈ → 001111₂

4) 15₁₀ → 0F₁₆ → 00001111₂

Объяснение:

1) в 8-ю СС:

разбиваем двоичное число на разряды по 3 цифры: 010 111₂: 010₂ = 2₈; 111₂ = 7₈.

10111₂ = 2⁴*1 + 2³*0 + 2²*1 + 2¹*1 + 2⁰*1 = 16 + 0 + 4 + 2 + 1 = 23₁₀

2) в 16-ю СС:

разбиваем двоичное число на разряды по 4 цифры: 0001 0111₂: 0001₂ = ₁₆; 0111₂ = 7₁₆

10111₂ = 17₁₆

17₁₆ = 16¹*1 + 16⁰*7 = 16 + 7 = 23₁₀

3) 15₁₀ (mod - остаток от деления, каждый раз делим на 8):

15 mod 8 = 7

1 mod 8 = 1

Остаток от деления записываем в обратном порядке. Получаем: 17₈.

17₈ в 2-ю С: 1₈ = 001₂; 7₈ = 111₂.

4) 15₁₀ (mod - остаток от деления, каждый раз делим на 16):

15 mod 16 = 15 (F)

0 mod 16 = 0

Остаток от деления записываем в обратном порядке. Получаем: 0F₁₆.

0F₁₆: 0₁₆ = 0000₂, F₁₆ = 1111₂. Выходит 00001111₂.

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.