Предмет: Информатика,
автор: Аноним
ПОМОГИТЕ ПОЖАЛУЙСТА ЗАДАЧИ В ПАСКАЛЬ АБС.
1)ДАНО КОЛ-ВО ИНФОРМАЦИИ В БИТАХ ПЕРЕВЕСТИ ЭТО ВСЁ В МЕГАБАЙТЫ!
Ответы
Автор ответа:
0
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.
Интересные вопросы
Предмет: Алгебра,
автор: mart71
Предмет: Другие предметы,
автор: ilyasovaasiyat06
Предмет: История,
автор: kovliaginaanna
Предмет: Физика,
автор: lisenok12302
Предмет: Химия,
автор: приалит