TIM KI TU XUAT HIEN NHIEU LAN NHAT TRONG XAU

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]

Bài 12: Nhập vào chuỗi st bất kì Tìm kí tự xuất hiện nhiều lần nhất trong chuỗi 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.

Var S:string; ch,ch1:char; i,max,d:byte;

Begin

Write('Nhap vao xau:'); Readln(S);

max:=0;

For ch:='A' to 'Z' do

begin

d:=0;

For i:=1 to length(S) do

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');