Перевод килобайтов в биты и мегабайты. Pascal

      Комментарии к записи Перевод килобайтов в биты и мегабайты. Pascal отключены

Главная Форумы Программирование Программирование на Pascal Перевод килобайтов в биты и мегабайты. Pascal

Помечено: 

В этой теме 0 ответов, 1 участник, последнее обновление  Васильев Владимир Сергеевич 3 мес., 4 нед. назад.

  • Автор
    Сообщения
  • #3750

    Пользователь вводит с клавиатуры величину, выраженную в килобайтах. Программа переводит ее в биты и мегабайты.

    Решение:

    program line_4;
    uses crt;
    var
      kb, b: longint;
      mb: real;
    begin
      clrscr;
      write('kb (килобайт) = '); readln(kb);
      b:=kb*1024*8;
      mb:=kb/1024;
      writeln(kb,' килобайт = ', b, ' бит = ', mb:6:4, ' мб');
      readkey;
    end.

Для ответа в этой теме необходимо авторизоваться.