Pascal перевести байты в килобайты

Программа:

var b: integer;

begin

write('Байты: ');

readln(b);

writeln(b,' байт(а/ов) = ',b/1024:5:2,' Кбайт');

end.

Пример:

Байты: 2048

2048 байт(а/ов) =  2.00 Кбайт

1) 1 Кбайт

Объяснение:

Для 8-битного кода один символ займет 1 байт (1 байт = 8 бит).

Для 16-битного кода, на каждый символ тратится 2 байта - это в 2 раза больше, чем для 8-битного.

Пусть количество символов в коде было х.

Тогда исходный 8-битный код занимал х байт.

После увеличения словаря до 16-битного кода, сообщение увеличилось в объёме на 1024 и стало занимать

(х+1024) байт,  

в то же время количество символов осталось тем же, а на 1 символ тратится уже 2 байт, поэтому объём сообщения можно записать как

2х. Получаем уравнение

х+1024=2х

х=1024 байт

ответ: объём исходного кода был 1024 байт= 1 Кбайт

1) 1 Кбайт

Объяснение:

Для 8-битного кода один символ займет 1 байт (1 байт = 8 бит).

Для 16-битного кода, на каждый символ тратится 2 байта - это в 2 раза больше, чем для 8-битного.

Пусть количество символов в коде было х.

Тогда исходный 8-битный код занимал х байт.

После увеличения словаря до 16-битного кода, сообщение увеличилось в объёме на 1024 и стало занимать

(х+1024) байт,  

в то же время количество символов осталось тем же, а на 1 символ тратится уже 2 байт, поэтому объём сообщения можно записать как

2х. Получаем уравнение

х+1024=2х

х=1024 байт

ответ: объём исходного кода был 1024 байт= 1 Кбайт