Bài 1: Nhập xâu kí tự bất kì a) Đếm số lần xuất hiện của 1 kí tự nào đó trong câu. b) Liệt kê các kí tự có mặt trong xâu cùng số lần xuất hiện của các kí tự đó. Bài giải: uses crt; var str:string100; chu:array1..254 of integer; i:integer; ch:char; begin clrscr; for ch:=1 to 254 do chuch:=0; write( Nhap chuoi = );readln(str); for i:=1 to length(str) do (chuupcase(stri)):=chuupcase(stri) +1; writeLn(Cac ki tu trong xau la:); for ch:=1 to 254 do if chuch>0 then writeln(ch, : xuat hien ,chuch, lan); readln; end. Bài 2: Nhập 1 xâu kí tự. a) Xét xem trong xâu có K kí tự kề nhau mà như nhau hay không? b) Hãy xóa đi kí tự kề nhau mà như nhau, chỉ giữ lại một. Bài giải: uses crt; var ch:string100; i,k,d,d1,n:integer; () function xoa:boolean; var i:integer; begin xoa:=false; for i:=1 to length(ch)1 do if chi=chi+1 then begin delete(ch,i,1); xoa:=true; exit end; end; () begin clrscr; write(Nhap chuoi :);readln(ch); write(Nhap ki tu K:);readln(k); n:=length(ch); d:=0;d1:=0; for i:=1 to n1 do begin if chi=chi+1 then inc(d1) else d1:=0; if d1+1>=k then inc(d); end; if d>0 then writeln(Co ,k, ki tu nhu nhau) else writeln(Khong co ,k, ki tu nhu nhau); while xoa do; write(In lai xau sau khi xoa:); writeln(ch); readln; end.