Написать программу на VBA с оператором

// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
  var k:=0;
  var n:=ReadInteger();
  var nmax:=0;
  while n<>0 do begin
    Inc(k);
    if n mod 10 = 0 then
      if n>nmax then nmax:=n;
    n:=ReadInteger()  
    end;
  var cntrl:=ReadInteger();
  Writeln('Получено ',k,' чисел');
  Writeln('Полученное контрольное значение: ',cntrl);
  Writeln('Вычисленное контрольное значение: ',nmax);
  if cntrl=nmax then Writeln('Контроль пройден')
  else Writeln('Контроль не пройден')
end.

Тестовое решение:
53
16
40
9
10
32
74
0
40
Получено 7 чисел
Полученное контрольное значение: 40
Вычисленное контрольное значение: 40
Контроль пройден

64 символьый алфавит. Посмотрим какой объем информации нужен для хранения одного символа:

log2(64) = 6 бит (двоичный логарифм от 64)

Носителем является глиняная табличка, на которой нанесено 512 символов, 

итого 512 * 6 = 3072 бит или 3072/8 = 384 байта информации (в одном байте ровно 8 бит)

Во всем своде законов 1024 глиняных таблички, значит

3145728 бит или 393216 байта информации или (делим на 1024) 384 килобайта информации

в одном носителе: 3072 бит или  384 байта информации

во всем своде: 3145728 бит или 393216 байта  или  384 килобайта

Задание номер 2

Мощность алфавита = 256, посчитаем объем информации, занимаемый одним символом

log2(256) = 8 бит или 1 байт (в одном байте 8 бит)

Одна страница содержит 256 символов. Так как один символ один байт, значит одна страница 256 байт.

Всего у племени 320 страниц текста, умножим

256 * 320 = 81920 байт на всех страницах.

В одном килобайте 1024 байта (по старому стандарту)

81920 байт / 1024 байт в килобайте = 80 килобайт

ответ: 80 килобайт необходимо для сохранения текста племени

Задание номер 3

у мульти 16 символьный алфавит. Посмотрим какой объем занимает символ:

log2(16) = 4 (на всякий случай - в какую степень надо возвести 2 чтобы получить 16, в четвертую степень, значит этот логарифм равен 4)

 

Теперь посчитаем объем информации символа пульти: 

log2(256) = 8

 

по условию задачи они передали одинаковое число символов друг другу.

Пусть X символов передали.

Тогда Мульти передали: 4*X бит, а пульти 8*X бит.

Разделим одно на другое

8x/4x = 2, значит Пульти передали в два раза больше информации.

 

ответ: пульти передали в два раза больше информации