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

Question

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

Answer 1

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.