Решить задачу в Паскале

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

Question

Информатика

Анюся

21 октября, 09:14

Решить задачу в Паскале

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

+3

Ответы (1)

Знаете ответ на вопрос?

Герман · 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.

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

Решить задачу в Паскале

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