Составьте программу, Дано количество информации в битах. Вывести в удобной форме в более крупных единицах. (до Мб).
Пример вывода:
10240 бит = 1280 байт = 1,25 Кб = 0,0012 Мб

var  n:integer;begin  read(n);  write(n,' бит = ', n/8, ' байт = ', n/8192:0:2,' Кб = ',n/(8*sqr(1024)):0:4,' Мб');end.Альтернативное решение:var  n: integer;  b, kb, mb: real;begin  read(n);  b := n / 8;  kb := b / 1024;  mb := kb / 1024;  write(n, ' бит = ', b:0, ' байт = ', kb:0:2, ' Кб = ', mb:0:4, ' Мб');end.