program Sum;
var
a,b,c,s: integer;
begin
WriteLn('Введите числа а,в,с');
ReadLn(a,b,c);
s:=a+b+c;
WriteLn('Сумма чисел равна',s);
end.
На месте первой буквы может стоять только 4 буквы, на второй тоже 4(М может быть только на 5м)
на 3,4,6,7х местах по 3(т.к. "М" на 5м, а "Х" на 1м или 2м), на 5м месте тоже 4.
4*4*3*3*4*3*3 = 5184
До: 2 байта\символ
После: 1 байт\символ, размер сократился на 240 бит
Решение: 240\8=30 байт
поскольку 30\1=30, размер сообщения = 30 символов.
Смотри во вложенном pdf-документе.