По Хаффману:
а кодировать 0 - 1 бит
м кодировать 10 - 2 бита
б кодировать 11 - 2 бита
// процедура обмена значений переменных а и b
procedure swapp(var a,b:integer);
var c: integer;
begin
c:=a;
a:=b;
b:=c;
end;
// основная программа
var a,b,c: integer;
begin
write('числа a b c через пробел: ');
readln(a,b,c);
if a>b then swapp(a,b);
if b>c then swapp(b,c);
writeln('среднее по значению: ',b);
end.
Ввод -вывод:
числа a b c через пробел: 25 14 18
среднее по значению: 18
11101(2)=29(10)
10(2)=2(10)
29+2=31(10) = 11111(2)
29-2=27 = 11011(2)
29*2=58 = 111010(2)
11001(2) + 10(2) = 11111(2) =31(10)
10101(2) - 10(2) = 11011(2) = 27(10)
11101(2) * 10(2) = 111010(2) = 58(10)
const Знаки_препинания = ".,!?():;—…«»";
var Строка = prompt();
alert(Строка.replace(new RegExp("[" + Знаки_препинания.split("").join("\\") + "]", "g"), ""));