Решить задачу в Паскале
Перевести заданное количество байтов в биты, килобайты, мегабайты.
More Questions From This User See All
Решить задачу в Паскале
Перевести заданное количество байтов в биты, килобайты, мегабайты.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.