Не уверен, правильно ли вас понял. Если что, пишите.
PascalABC.Net
var
str : string;
i : integer;
begin
write('Введите строку: ');
readln(str);
for i := 1 to length(str) do
case str[i] of
'а' : str[i] := 'б';
'А' : str[i] := 'Б';
'б' : str[i] := 'а';
'Б' : str[i] := 'А';
end;
writeln(str);
end.
16=2 в 4 степени, значит в сообщении о белом кар. -4 бита
24 округлям до 32 (в бол. сторону)=5 бит
<em>// PascalABC.NET 3.2, сборка 1363 от 17.12.2016</em><em>// Внимание! Если программа не работает, обновите версию!</em>begin
var x:=ReadReal('x=');
var y:=(x*x-7*x+10)/(x*x-8*x+12)+power(x,0.8);
Writeln('y=',y)
end.
<span>
1101₂
-111011₂
1100₂
х11011₂
101₂
10101110₂÷111₂</span>