Var
x: real;
begin
readln(x);
write(sqrt((2 * x + 3) / (x - 4)));
end.
ОТДЕЛ Задание+;
ПОСТ
n = 10;
ПЕР
массив: РЯД n ИЗ ВЕЩ;
сумма, среднее: ВЕЩ;
сч: ЦЕЛ;
УКАЗ
сумма := 0;
ОТ сч := 0 ДО n - 1 ВЫП
сумма := сумма + массив[сч]
КОН;
среднее := сумма / n
КОН Задание.
Если я правильно поняла задачу и нужно из двоичного числа перевести в десятичное, то ответ 231