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

Для перевода количество бит в байты нужно разделить на 8 в данном примере:

10240/8=1280 байт.

1 Кбайт=1024 байт, тогда получаем:

1280/1024=1,25 Кбайт

С мегабайтами аналогично 1 Мбайт=1024 Кбайт:

1,25/1024=0,0012 Мб

var

M:integer, / число бит/

R:real; / число байт, Кбайт, Мбайт/

begin

R:=M/8;

R:=R/1024;

R:=R/1024;

end.