uses crt;
var s,t:string; i,n,a,e,tong,vt,b,kt:longint;
begin
clrscr;
   write('S=');readln(s);
   n:=length(s);
   for i:=1 to n do
      if (s[i]<>'+') then t:=t+s[i] else
      begin
         val(t,a,e);
         inc(tong,a);
         t:=''; vt:=i;
      end;
   for i:=vt+2 to n do
      begin
         val(copy(s,vt+1,i-(vt+1)),a,e);
         val(copy(s,i,(n-i)+1),b,e);
          if tong+a=b then kt:=1;
      end;
   writeln(kt=1);
readln
end.

////////////////////

Giải thích:

Cách làm: mình sẽ trích tất cả các số liên tiếp ra để tính tổng rồi xem có bằng ký tự cuối cùng không.

B1: Trích các số

Chạy từ 1 tới n(độ dài của s):

Nếu mà s[i] là số và nó ko phải ký tự cuối cùng(chừa số cuối cùng không tính tổng) thì thêm vào xâu t

Không thì đổi t thành số  rồi thêm vào tổng

B2:

Mình đã tìm được cái vt khi làm B1

Mình sẽ chạy từ vt tới n nếu i là vạch phân chia 2 vế

-vế 1 đưa vào tổng

Nếu tổng = vế 2 thì ra true

Nếu có gì không hiểu hay code sai chỗ nào thì các bạn để lại bình luận nha các bạn!!!

Đây là một số text: