Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

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.