Написать, как будет выглядеть описание переменных для решения задачи:
Ёмкость носителя информации задана в байтах. Перевести это значение в килобайты и мегабайты.
Var B:integer; // B - байты
begin
readln(B);
writeln(B, байт =,b/1024 Кбайт = ,b/1024/1024, Мбайт);
end.
Оцени ответ
