Решите , с пояснением​

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, значит Пульти передали в два раза больше информации.

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

1)

var

 num: integer;

begin

 writeln('Введите число');

 read(num);

 if(num mod 2 = 0) then  

   write('Число четное')

 else  

   write('Число нечетное');

end.

2)

var

 a, b, i: integer;

begin

 writeln('Введите a');

 read(a);

 writeln('Введите b');

 read(b);

 if (a > b) then

   swap(a, b);

 for i := 0 to  

 b - a - 1 do

   a := a + 1;

end.

3)

var

 num: integer;

begin

 writeln('Введите число');

 read(num);

 if (num div 1000 = 0) and (num div 100 <> 0) then  

   write('Число трехзначное')

 else  

   write('Число не трехзначное');

end.