Дана величина а выражающая объем информации в байтах, перевести а в биты, килобайты....

Question

Дана величина а выражающая объем информации в байтах, перевести а в биты, килобайты. (Паскаль)

Answer 1

var a:integer;
begin
writeln('Enter byte:');
readln(a);
writeln(a,' byte = ',a*8,' bit = ',a/1024,' KByte');
end.