Приведём решение Юрия Красильникова на языке Python.

import re
s = re.findall(r'C[1-9]+(?:[+\-][1-9]+)*', open('24.txt').readline())
ans = -10**20
for x in s:
stop = [i for i in range(len(x)) if x[i] in '+-']
stop += [len(x)]
m = max([eval(x[1:t]) for t in stop])
ans = max(ans,m)
print(ans)

Ответ: 221.

Приведём решение Юрия Красильникова на языке Python.

def calc(s):
t=0
i=0
while s[i] in '123456789':
t=t*10+int(s[i])
i+=1
ans=[t]
while True:
op=s[i]
if op not in '+-': return max(ans)
i+=1
if s[i] not in '123456789': return max(ans)
t=0
while s[i] in '123456789':
t=t*10+int(s[i])
i+=1
ans.append(ans[-1]+(t if op == '+' else -t))
a = open('24.txt').readline().split('C')[1:]
print(max([calc(x+'!') for x in a if len(x) > 0 and x[0] in '123456789']))

Приведём решение Сергея Донец на PascalABC.NET:

begin
ReadAllText('24.txt').Matches('C(\d+(?:[+-]\d+)*)')
.Select(m-> m.Groups[1].Value.Matches('[+-]?\d+')
.Select(x-> x.Value.ToInteger)
.Scan(0, (acc, x)-> acc + x).Max).Max.Print;
end.