Объем сообщения содержащего 16384 , равен 1/64 мегабайта.какова мощность алфавита, с которого записано это сообщения?

N=2 в степени i  . 64 это 2 в 6 степени . ответ 6  мощность алфавита

1. В приведенном коде ошибка. Не хватает ";" в третьей строке снизу.
2. Немного изменим ваш код и получим искомое значение x
Искомое число х = 16293

var
  x, y, a, b, k: integer;

begin
  k:=10000;
  repeat
    x:=k;
    a := 0; b := 0; y := 1;
    while x > 0 do
    begin
      if (x mod 10) mod 2 = 0
        then
        a := a * 10 + x mod 10
      else begin
        y := y * 10;
        b := b * 10 + x mod 10
      end;
      x := x div 10
    end;
    a := a * y + b;
    k := k + 1;
    until a = 26391;
    writeln(a:8, k-1:8); 
end.

 

Для удобства перенёс таблицу из вопроса в Excel (см. приложение №1)

Вопрос №1: Определите, какое минимальное количество учителей физкультуры требуется при таком расписании. Почему?
ответ: 3. Так как на втором уроке одновременно идут 3 занятия у классов: 9А, 10А, 10Б.

Вопрос №2: Найдите один из вариантов расписания, при котором можно обойтись двумя учителями физкультуры, совмещать уроки нельзя.
ответ: см. приложение (картинка №2)

Вопрос №3: В школе три учителя физкультуры: Иванов, Петров, Сидоров. Распределите между ними уроки в таблице так, чтобы ни у кого не было "окон" (пустых уроков).
ответ: см. приложение (картинка №3)

Вопрос №4: Распределите между тремя учителями уроки так, чтобы нагрузка у всех была одинаковой.
ответ: см. приложение (картинка №4)