ОЧЕНЬ СРОЧНО!!! УМОЛЯЮ ** Паскале с клавиатуры вводится величина I - информационный...

Question

ОЧЕНЬ СРОЧНО!!! УМОЛЯЮ На Паскале с клавиатуры вводится величина I - информационный объем файла в Кб. Составьте программу перевода этой величины в байты, биты, Мб и вывода их на экран. 8 класс без case of

Comments

Перевод в какую единицу у пользователя спрашивать?

---

тупо пользователь вбивает в байтах, а потом ему выдается скок это будет в битах, байтах и мбайтах*

---

??

Answer 1

program gwr;

var

 i : integer;

 begin

   writeln('Введите объём файла в Кб');

   readln(i);

   writeln('Информационный объём в битах равен:', i * 1024 * 8);

   writeln('Информационный объём в байтах равен: ', i * 1024);

   writeln('Информационный объём в Мегабайтах равен: ', i /1024);

 end.