uses crt;
var s,t:string; i,n,a,e,tong:longint;
begin
clrscr;
write('S=');readln(s);
n:=length(s);
for i:=1 to n+1 do
if (s[i]<>'+')and(i<>n+1) then t:=t+s[i] else
begin
val(t,a,e);
inc(tong,a);
t:='';
end;
writeln(tong);
readln
end.
////////////////
Giải thích:
Chạy từ 1 tới n+1(độ dài của s+1):
Nếu mà s[i] là số và nó ko phải là dấu + và i ko là n+1 (trường hợp đặc biệt)thì thêm vào xâu t
Không thì đổi t thành số rồi thêm vào tổng