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

Question

annhocbichchau · Answer

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É

0 bình luận về “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”