Составьте программу, Дано количество информации в битах. Вывести в удобной форме в более крупных единицах. (до Мб).

Пример вывода:

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.