Тут не очень длинная строка получилась, её можно обработать и в таблице Excel.
Собственно, я составил таблицу для решения этой задачи (она прилагается к решению).
Самое большое преобразование там- это расстановка символов в обратном порядке.
Результат в таблице- после всех возможных замен символов BAB, в полученной строке осталось 24 буквы B.
Program SpTrap;
var y , x :integer;
begin
writeln ('ВВеди переменную x');
readln (x);
y:=0
<span>у=(х+1)/2х;
writeln('y=',y);
end
-----------------------------------------------------------------
</span>1. Начало алгоритма
2. Ввод (х)
3. Если (х не равно 0) И (а не равно нулю)
4. y:= (х+1)/2х.
5. Иначе
6. Вывод ('Функция не определена')
7. Конец алгоритма
-----------------------------------------------------------------------------
1. Начало алгоритма
2. объявление переменных
3. Объявление (х)
4. Если (х не равно 0) И (x не равно нулю)
5. y:= (х+1)/2х.
6. Иначе
7. Вывод ('Функция не определена') или ('y=',y)
8. Конец алгоритма
Var
a:string;
i,k,n:integer;
begin
readln(a);
for i:=1 to length(a) do
begin
if a[i]='('then
k:=k+1;
if a[i]=')'then
n:=n+1;
end;
if k=n then
writeln('Y')
else
writeln('N');
end.
П0 0 П1 1 0 / П2 {x} 1 0 * ИП1 + П1 ИП2 [x] 1 0 / П2 {x} 1 0 * ИП1 + П1 ИП2 [x] ИП1 + С/П