Question

ПОМОГИТЕ ПОЖАЛУЙСТА ЗАДАЧИ В ПАСКАЛЬ АБС.

1)ДАНО КОЛ-ВО ИНФОРМАЦИИ В БИТАХ ПЕРЕВЕСТИ ЭТО ВСЁ В МЕГАБАЙТЫ!

Answer 1

Program pr;
uses crt;
Var bit,MB:real;
Begin
Writeln('Введите кол-во бит');
readln(bit);
MB:=bit/8/1024/1024;
Writeln(bit,' bit=',MB:5:4,' MB');
readln;
end.