Pascal abc net. напишите программу с использованием подпрограмм. реализуйте четыре подпрограммы – по одной на каждое арифметическое действие.

//PascalABC.NET 3.1 сборка 1230
function sum(a, b: real) := a + b;
function bet(a, b: real) := a - b;
function mult(a, b: real) := a * b;
function divis(a, b: real) := a / b;
begin
  var a := ReadReal('Введите два числа:');
  var b := ReadReal;
  WritelnFormat('{0} + {1} = {2}', a, b, sum(a, b));
  WritelnFormat('{0} - {1} = {2}', a, b, bet(a, b));
  WritelnFormat('{0} * {1} = {2}', a, b, mult(a, b));
  WritelnFormat('{0} / {1} = {2}', a, b, divis(a, b));
end.

Не очень понятно, длину двоичного кода одного символа или длину двоичного кода всех 33 символов, как бы записанных в ряд..

Ну да ладно, вычислим, сколько информации содержит 1 символ при мощности алфавита = 33:

33 = 2ˣ => минимальный x = 6

Значит один символ будет нести 6 бит информации, то есть длина двоичного кода для записи одного символа равна 6.

Если мы умножим 6 на количество символов, то получим количество информации, требуемое для записи 33 букв, т.е.:

6*33 = 198 бит

ответ: Длина двоичного кода одной буквы равна 6, а 33 букв - 198.

Исходя из всего увы без обьяснения я просто очень долго прикидывал но яблони у француза абрикосы у немца вишни у поляка черешня у шведа груши у англичанина далее бегает француз в тенисс играет швед в гольф поляк пловец англичанин и прыгает немец потом на скрипке играет немец и швед поляк на рояле немец еще играет на трубе француз на барабанах (ударных) живут они короче француз слева от центра немец прямо в центре поляк с правого края швед с левого края а англичанин справа от центра теперь возраст французу 40 немцу 45 поляку 35 шведу 50 англичанину 30 и ответ тогда 50 лет шведу ав гольф играет поляк)))