Question

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

Answer 1

Program Calculator;
var b, kb, mb, bt: real;
begin 
write('Введите количество байтов: ');
readln(b); {bytes} 
 kb:=b/(1 shl 10); {kbytes} 
mb:=b/(1 shl 20); {mbytes} 
bt:=b*8; {bits} 
writeln(bt:1:2, ' - битов ',kb:1:2, ' - килобайтов ',mb:1:2, '- мегабайтов '); 
end.

Answer 2

Для решения данной задачи в Паскале можно использовать следующий код:

program ConvertBytes;

var
  bytes, bits, kilobytes, megabytes: Integer;

begin
  // Ввод количества байтов
  Write('Введите количество байтов: ');
  ReadLn(bytes);
  
  // Перевод в биты
  bits := bytes * 8;
  
  // Перевод в килобайты
  kilobytes := bytes div 1024;
  
  // Перевод в мегабайты
  megabytes := kilobytes div 1024;
  
  // Вывод результатов
  WriteLn('Биты: ', bits);
  WriteLn('Килобайты: ', kilobytes);
  WriteLn('Мегабайты: ', megabytes);
end.

В данном коде мы сначала запрашиваем у пользователя количество байтов, затем выполняем необходимые вычисления для перевода этого количества в биты, килобайты и мегабайты. Результаты выводятся на экран.