=498 вроде бы я не очень понимаю
Если на паскале, то как-то так:
function ToNine(number : integer) : integer;
const
sist = 9;
var
res, umn : integer;
begin
res := 0;
umn := 1;
while number > 0 do
begin
res := (number mod sist) * umn + res;
number := number div sist;
umn := umn * 10;
end;
ToNine := res;
end;
var
i : integer;
begin
for i := 1 to 8 do
writeln(i, ' + ', i, ' = ', ToNine(i + i));
for i := 1 to 8 do
writeln(i, ' * ', i, ' = ', ToNine(i * i));
<span>end.</span>
Для первого сообщения 1 символ=4 бита. (2 в 4 степени=16) и умножаем 4 * 40 = 160 бит.
для второго сообщения 1 символ=6 бит. (2 в 6 степени = 64) и умножаем
6 * 15 = 90 бит.
Пн.A,B,C,D
вт.D,C,B,B,A
ср.A,A,A,C,B,D
чт.D,D,D,B,C,A
пт.A,B,A,A,D
A=9
B=6
C=4
D=7