5
3
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
2863
21141
program bai_giai;
uses crt;
var x:string;
i,j,d,max:byte;
c:char;
begin
clrscr;
readln(x);
max:=1;
for i:=1 to length(x)-1 do
begin
d:=1;
for j:=i+1 to length(x) do
if x[i]=x[j] then d:=d+1;
if d>max then
begin
max:=d; c:=x[i];
end;
end;
write(c);
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin
5
725
3
chạy đc ko bạn
2863
41637
21141
được nha bạn mình chạy rồi
5
725
3
ok thanks nha