Question

Nhập vào từ bàn phím một xâu kí tự S chỉ gồm các chữ cái không quá 255 kí tự. Hãy viết chương trình in ra một kí tự có số lần xuất hiện nhiều nhất trong xâu S (có phân biệt kí tự hoa và kí tự thường).

Chú ý: Nếu có nhiều kí tự có cùng số lần xuất hiện nhiều nhất trong xâu S thì chỉ cần in một kí tự trong các kí tự đó.

Answer 1

Program hotrotinhoc;

var max,i,n: integer;

x,s: string;

d: array['A'..'z'] of integer;

l: char;

begin

readln(x);

for i:=1 to length(x) do

inc(d[x[i]]);

for i:=1 to length(x) do if pos(x[i],x)=i then s:=s+x[i];

for l:='A' to 'z' do if d[l]<>0 then

if d[l]>max then max:=d[l];

for l:='A' to 'z' do if d[l]=max then begin write(l); break; end;

readln;

end.

Answer 2

var max,i,n: integer;

x,s: string;

d: array['A'..'z'] of integer;

l: char;

begin

readln(x);

for i:=1 to length(x) do

inc(d[x[i]]);

for i:=1 to length(x) do if pos(x[i],x)=i then s:=s+x[i];

for l:='A' to 'z' do if d[l]<>0 then

if d[l]>max then max:=d[l];

for l:='A' to 'z' do if d[l]=max then begin write(l); break; end;

readln;

end.