Напечатать таблицу перевода количества информации в байтах (цикл с параметром)

@Александра2307 · Регистрация: 25.04.2015

Студворк — интернет-сервис помощи студентам

Дана программа, решающая указанную задачу и содержащая синтаксические и алгоритмические ошибки и/или пропуски. Указать строки, содержащие эти ошибки и их содержание. Исправить их. Если есть пропуски, заполнить их. Представить правильный вариант программы.
. Напечатать таблицу перевода количества информации в байтах. Перевести его в биты, килобайты, мегабайты. гигабайты.

Pascal

Program byte;
Var
     I, b, by, Kb, Mb, Gb : integer;
    
Begin
    For i:=1 to 10 do
    begin
    read('Очередное количество байт? '); writeln(by);
    b:=by/8; Mb:=______; Kb:=__________; Gb:=_______
     writeln(b,'b   ',Kb,'Kb   ', ___, 'Mb  ', ___, 'Gb  ');
end.

@ZX Spectrum-128 · 27.04.2015, 12:50

Pascal

Program byteToOthers;
Var
  I:integer;
  b, by, Kb, Mb, Gb : real;
Begin
  For i:=1 to 10 do
    begin
      write('Очередное количество байт? '); readln(by);
      b:=by*8;  Kb:=by/1024;  Mb:=by/1024/1024;  Gb:=by/1024/1024/1024;
      writeln(by:8:0,' bytes = ',b:8:0,' bits, ',Kb:16:12,' Kb, ', mb:16:12,' Mb,', gb:16:12, ' Gb.');
    end;
  readln;
end.

Опции темы