Тут не очень длинная строка получилась, её можно обработать и в таблице Excel.
Собственно, я составил таблицу для решения этой задачи (она прилагается к решению).
Самое большое преобразование там- это расстановка символов в обратном порядке.
Результат в таблице- после всех возможных замен символов BAB, в полученной строке осталось 24 буквы B.
DIM i AS INTEGER, s AS LONG
FOR i = 20 TO 40
s = s + i ^ 3
NEXT
PRINT "Сумма всех кубов от 20 до 40 = ";s
<span>Алфавит шестнадцатеричной системы счисления - 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F</span>
Var
a, v : integer;
begin
write('Введите длину ребра:');
readln(a);
v := a * a * a;
writeln;
writeln('Объем = ', v);
<span>end. </span>