1 алфавит 32=2^5. 1символ 5 бит. объем =5*20=100бит. 2 алфавит 64=2^6 1символ 6 бит. объем 6*15=90бит. 100-90=на 10бит 1>2
Var
x,z,c:Integer;
begin
readln(x,z);
if x < 5 then
c:= x + z;
if (5 <= x) and (x <= 10) then
c:=2*x-3*z;
if x > 10 then
c:= 25*x+z*25;
writeln(c);
end.
Делим на 2^13. Получаем 1 Кб
Правильный ответ: Б
Исходная строка: "x:=a*3+sqrt9"
Ошибка допущена в конце строки, в функции вычисления квадраного корня. Должно быть так: sqrt(9).
Хотя, формально, в конце каждой строки ещё должна быть точка с запятой.