1 буква=1 байт=8 бит
(кол-во слов в сообщении умножь на 8)
procedure Minmax(var a, b: integer);
var min, max: integer;
begin
if a < b then min := a else min := b;
if a > b then max := a else max := b;
a := min;
b := max;
end;
10001,01 в двоичной системе = 69 в десят.
55 в десятичной системе = 67 в восмеричной
110111 в двоичной системе+ 1011 в двоичной системе) *101 в двоичной = <span>101001010</span>
Подпр1(A,B,B) - аргумент X функции - это А = 3, аргумент Y функции - B=5, результат - аргумент F, то есть возврат значения B
X = X + 2 = 3 + 2 = 5
Y = Y + 3 = 5 + 3 = 8
F = X + Y = 13
B = 13
Ответ: 13