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.

Answer 2

Конечно, вот программа на Python, которая преобразует количество информации из битов в более крупные единицы (байты, килобайты, мегабайты):

pythonCopy code
# Получаем количество информации в битах от пользователя
bits = int(input("Введите количество информации в битах: "))

# Преобразуем в байты
bytes = bits / 8

# Преобразуем в килобайты
kilobytes = bytes / 1024

# Преобразуем в мегабайты
megabytes = kilobytes / 1024

# Выводим результаты
print(f"{bits} бит = {bytes} байт = {kilobytes:.2f} Кб = {megabytes:.4f} Мб")

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