У код так, чтобы остались циклы, условные операторы арифметические действия и функция len(), так же можно использовать: replace,count,find.
Код:
S = input()
n = len(S)
idxB =[i for i in range(n) if S[i]=='B']
idxR=[i for i in range(n) if S[i]=='R']
rem_points=[i for i in list(zip(idxR, idxB[::-1])) if i[0] print('B'*(len(idxB)-len(rem_points))+'R'*(len(idxR)-len(rem_points)))
print(2*len(rem_points))

Человеческое общество по мере своего развития овладевало не только веществом и энергией, но и информацией. С появлением и массовым рас компьютеров человек получил мощное средство для эффективного использования информационных ресурсов, для усиления своей интеллектуальной деятельности. С этого момента (середина XX века) начался переход от индустриального общества к обществу информационному, в котором главным ресурсом становится информация.

Возможность использования членами общества полной, своевременной и достоверной информации в значительной мере зависит от степени развития и освоения новых информационных технологий, основой которых являются компьютеры. Рассмотрим основные вехи в истории их развития.

Объяснение:

Нужно использовать декодер. Например этот:

https://www.artlebedev.ru/decoder/

Var
  d1,d2,n:integer;
  k,s:longint;
begin
  Write('Введите натуральное двухзначное число: '); Read(n);
  d1:=n div 10; d2:=n mod 10;
  k:=sqr(n); s:=4*(d1*sqr(d1)+d2*sqr(d2));
  Write(n,': ');
  if k=s then Writeln('Квадрат числа (',k,
      ') равен учетверенной сумме кубов его цифр')
  else Writeln('Квадрат числа (',k,
      ') не равен учетверенной сумме кубов его цифр (',s,')')
end.

Тестовое решение:
Введите натуральное двухзначное число: 48
48: Квадрат числа (2304) равен учетверенной сумме кубов его цифр

Введите натуральное двухзначное число: 47
47: Квадрат числа (2209) не равен учетверенной сумме кубов его цифр (1628)

Замечание: На самом деле лишь одно число 48 среди всех двухзначных чисел удовлетворяет условию равенства, так что достаточно просто сравнивать введенное число с 48, чтобы решить задачу )))