Question

Дана величина А выражающая объем информации в битах
Напишите программу перевода А в килобайты

Answer 1

Ответ:

var a:Integer;

b:Real;

begin

readln(a);

writeln('Объём А в битах равен ', a);

b:=a/8/1024;

 writeln('Объём А в килобайтах равен ', b:0:1);

end.