var a:Integer;
b:Real;
begin
readln(a);
writeln('Объём А в битах равен ', a);
b:=a/8/1024;
writeln('Объём А в килобайтах равен ', b:0:1);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Дана величина А выражающая объем информации в битах Напишите программу перевода А в килобайты
var a:Integer;
b:Real;
begin
readln(a);
writeln('Объём А в битах равен ', a);
b:=a/8/1024;
writeln('Объём А в килобайтах равен ', b:0:1);
end.