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