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!!!

bài này mình có giải bên kia rồi nên không phải là copy của người khác nhé