Не очень ровно..) думаю разберешься
Var
x,y:integer;
begin
writeln('Введите X: ');readln(x);
if x <= 0 then
y:=0
else
begin
if (x < 0) or (x <= 1) then
y:=x
else
y:=x*x
end;
writeln(y);
end
0,1,2,3,4,5,6,7,8,9,A,B числа которые входят в 12 систему
В итоге получается
10111110
+ 11101011
21212121
Для кодирования одного из 17 символов требуется log(2)17 ≈ 5 бит.
Объем информации в письме племени Мульти = 100*5 = 500 бит.
Для кодирования одного из 32 символов требуется log(2)32 = 5 бит.
Объем информации в письме племени Мульти = 50*5 = 250 бит.
Ответ: 500 бит > 250 бит
До: 2 байта\символ
После: 1 байт\символ, размер сократился на 240 бит
Решение: 240\8=30 байт
поскольку 30\1=30, размер сообщения = 30 символов.