Bài 1: nhập vào xâu ký tự bao gồm số chữ Hãy tính tổng số xâu Vd: s:='th3cs th45ai ho6a'; Kq: 18 uses crt; var s:string; tong,so,code,i:integer; begin s:='th3cs th45ai ho6a'; tong:=0; for i:=1 to length(s) if s[i] in ['0' '9'] then begin val(s[i],so,code); tong:=tong+so; end; write(tong); readln; end Bài 2: Nhập vào hai xâu s, s1 Hãy cho biết xâu s1 vị trí thứ xâu s s:='thcs thai hoa'; Kq: s1:='cs'; uses crt; var s,s1:string; begin s:='thcs thai hoa'; s1:='cs'; write(pos(s1,s)); readln; end Bài 3: nhập vào hai số a, b (a>100), kiểm tra xem b có a hay không? A=123 khong B=4 A=123 co B=2 uses crt; var a:integer; b,s:string; begin write('nhap a=');readln(a); write('nhap b=');readln(b); str(a,s); if pos(b,s)>0 then write('co') else write('khong'); readln; end Bài 4: nhập vào N N phần tử, tính tổng chữ số phần tử sau đưa kết tổng phần tử 15 17 11 23 45 78 89 15 29 uses crt; var a,b:array [1 100] of integer; i,n:integer; F:text; function tongcs(x:integer):integer; var tong:integer; begin tong:=0; while x0 begin tong:=tong+x mod 10; x:=x div 10; end; tongcs:=tong end; procedure nhapxuatdl; var i:integer; begin assign(F,'luumang.inp'); reset(f); readln(f,n); for i:=1 to n read(F,a[i]); close(f); { for i:=1 to n write(a[i]:3); } end; procedure xuly; var i,j,dem:integer; begin dem:=0; j:=1; for i:=1 to n begin dem:=dem+1; b[j]:=tongcs(a[i]); inc(j) end; for j:=1 to dem write(b[j]:4); end; BEGIN nhapxuatdl; xuly; READLN; END LÀM BÀI TẬP 5, 6, TRONG ĐỀ 10/2 ... function tongcs(x:integer):integer; var tong:integer; begin tong:=0; while x0 begin tong:=tong+x mod 10; x:=x div 10; end; tongcs:=tong end; procedure nhapxuatdl; var i:integer; begin assign(F,'luumang.inp');... write(a[i]:3); } end; procedure xuly; var i,j,dem:integer; begin dem:=0; j:=1; for i:=1 to n begin dem:=dem+1; b[j]:=tongcs(a[i]); inc(j) end; for j:=1 to dem write(b[j]:4); end; BEGIN nhapxuatdl; xuly;