Question

Написать, как будет выглядеть описание переменных для решения задачи:
Ёмкость носителя информации задана в байтах. Перевести это значение в килобайты и мегабайты.

Answer 1

var B:integer; // B - байты
begin
  readln(B);
  writeln(B,' байт =',b/1024 ' Кбайт = ',b/1024/1024, ' Мбайт');
end.