Информационное сообщение объемом 4096 байт содержит 32768 символов. сколько символов содержит алфавит, при которого было записано это сообщение?

Содержит 8 символов. Нужно просто 32768:4096=8

Active GIF Creator (russian edition) - мощный, доступный и понятный инструмент для создания и оптимизации GIF-анимаций, 3D кнопок, баннеров для Web и презентаций. Вы можете использовать также графику, созданную или отредактированную в любом другом графическом редакторе, например, в Windows Paint, Adobe Photoshop. Постоянное совершенствование программы направлено на расширение возможностей и удобство в работе как для начинающих, так и для опытных пользователей. Свойства программы: - Создаёт анимированные GIF-файлы из набора BMP, JPEG, ICO, PCX, Adobe Photoshop PSD -файлов и метафайлов Windows; - Редактирует изображения, используя внутренний графический редактор; - Импортирует кадры (фреймы) из других GIF-файлов; - Дублирует, объединяет, вырезает, изменяет размеры, поворачивает и перемещает фреймы; - Определяет глобальные параметры GIF-файлов, логический размер экрана, индекс цвета для фона, число циклов в анимации; - Определяет смещение, прозрачность, проявление, задержку, заголовок и значение "как удалять" для каждого отдельного образа; - Поволяет применять набор эффектов для образа и для его любой выделенной прямоугольной части; - Добавляет и удаляет текстовые комментарии; - Редактирует цветовые палитры; - Оптимизирует размер GIF-файлов; - Показывает размер GIF-файла и время загрузки для различных скоростей модемов; - Сохраняет образы GIF-файлов как набор BMP, JPEG или TIFF-файлов; - Экспортирует и импортирует AVI-файлы; - Экспортирует и импортирует ANI-файлы (анимированные курсоры); - Экспортирует и импортирует растровую полоску; - Создает образы трехмерных кнопок; - Позволяет просматривать GIF-файл на Web-странице с различными фонами; - Создаёт карту для тэга в HTML; - Создаёт GIF-файлы из командной строки command в пакетном режиме.

Const
  maxN = 100; // Максимальное кол-во элементов массива
var
  n, i: longint;
  middle, sum, sum2: real; // Может быть нецелым числом
  a: array[1..maxN] of real;
begin
  write('Введите количество элементов массива: ');
  readln(n);
  sum := 0; // Считаем сумму всех элементов, чтобы найти среднее арифметическое
  write('Введите элементы массива через пробел: ');
  for i := 1 to n do begin
    read(a[i]);
    sum := sum + a[i];
  end;
  middle := sum / n; // Вычисляем среднее арифметическое
  writeln('Среднее арифметическое = ', middle);
  sum2 := 0; // Считаем сумму элеметов, меньших среднего арифметического
  for i := 1 to n do
   if a[i] < middle then
     sum2 := sum2 + a[i];
  writeln('Сумма элементов, меньших среднего арифметического = ', sum2);
end.