program Xau; const max = 100000; var S: string; tong, i, c: Word; Begin readln(S); tong:= 0; for i:= 1 to length(S) do Begin if S[i] in ['1'..'9'] then Begin val(s[i], c); tong:= tong + c; delete(S, i, i); End; End; writeln(tong); writeln(S); End.
uses crt; var s:string;n,i,t:longint; begin clrscr; write('Nhap xau: '); readln(s); write('Xau chu: '); for i:=1 to length(s) do begin if s[i] in ['a'..'z'] then write(s[i]); if s[i] in ['A'..'Z'] then write(s[i]); end; writeln; write('Xau so: '); for i:=1 to length(s) do begin if s[i] in ['0'..'9'] then write(s[i]); end; writeln; for i:=1 to length(s) do begin if s[i] in ['0'..'9'] then begin val(s[i],n); inc(t,n); end; end; writeln('Tong xau so: ',t); readln end.
