viết chương trình nhập từ bàn phím một xâu ký tự bất kỳ (không quá 250 ký tự) sau đó hiệu chỉnh xâu nhập vào sao cho xâu đó trở thành xâu đặc biệt

Program ABC;

Uses  Crt;

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.

Bạn ấy CTRL F9 ĐỂ CHẠY CHƯƠNG TRÌNH NHÉ

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.