Решить в паскале перевести заданное количество байтов в биты, килобайты, мегабайты.

Program calculator; var b, kb, mb, bt: real; begin  write('введите количество байтов: '); readln(b); {bytes}    kb: =b/(1 shl 10); {kbytes}  mb: =b/(1 shl 20); {mbytes}  bt: =b*8; {bits}  writeln(bt: 1: 2, ' - битов ',kb: 1: 2, ' - килобайтов ',mb: 1: 2, '- мегабайтов ');   end.

2^i = 100

i = 7 бит необходимо для кодирования любого от 1 до 100

64 * 7 =  448 бит = 56 байт