Nếu có nhiều kí tự xuất hiện nhiều nhất thì in ra màn hình kí tự đầu tiên.[r]
(1)Bài 12: Nhập vào chuỗi st bất kì Tìm kí tự xuất nhiều lần chuỗi Nếu có nhiều kí tự xuất nhiều thì in màn hình kí tự đầu tiên Var S:string; ch,ch1:char; i,max,d:byte; Begin Write('Nhap vao xau:'); Readln(S); max:=0; For ch:='A' to 'Z' begin d:=0; For i:=1 to length(S) if S[i]=ch then inc(d); if d>=max then Begin max:=d; ch1:=ch; end; end; Write(' ki tu xuat hien nhieu nhat la:',ch1); write('xuat hien',max ,'lan'); Readln End (2)