Question

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

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

Answer 1

var bits,mb:real

begin

readln(bits);

mb:=bits/8/1024/1024;

writeln(mb)

end.