1) 1 Кбайт
Объяснение:
Для 8-битного кода один символ займет 1 байт (1 байт = 8 бит).
Для 16-битного кода, на каждый символ тратится 2 байта - это в 2 раза больше, чем для 8-битного.
Пусть количество символов в коде было х.
Тогда исходный 8-битный код занимал х байт.
После увеличения словаря до 16-битного кода, сообщение увеличилось в объёме на 1024 и стало занимать
(х+1024) байт,
в то же время количество символов осталось тем же, а на 1 символ тратится уже 2 байт, поэтому объём сообщения можно записать как
2х. Получаем уравнение
х+1024=2х
х=1024 байт
ответ: объём исходного кода был 1024 байт= 1 Кбайт
program n1;
var x: Integer;
begin
writeln("Введите x:");
readln(x);
x:= x-5;
if x>10 then x:= (2*x)-10;
writeln(x);
end.