Function tet2n(n As Integer) As Integer
Dim i As Integer
i = 8
Do While i * (i + 1) * (i + 2) / 6 > n
i = i - 1
Loop
tet2n = i
End Function
Excel VBA
Поскольку 2^5=32, значит такое сообщение содержит 5 бит информации
Var a: integer;
begin
readln (a);
if a<0 then a:=a*2;
writeln (a);
end.
8бит=1байта
16бит=2байта
8*32*64*2=32768байт переводим в Кбайты 1Кбайт=1024байта
32768/1024=32Кбайт