program xoa_ky_tu;
uses crt;
var x,y:string;
    i,j,dem,max: integer;
    a:char;
BEGIN
clrscr;
write('nhap xau x : ');
readln(x);
y:=x;

for i:=1 to length(x) do
begin
j:=i+1;
repeat
if x[i]=x[j] then delete(x,j,1)
else
j:=j+1;
until (j>length(x));
end;
writeln('xau sau khi loai bo ki tu giong nhau la :',x);

max:=0;
a:=' ';
for i:=1 to length(x) do
begin
dem:=0;
for j:=1 to length(y) do
if x[i]=y[j] then
dem:=dem+1;
if dem>max then
begin
max:=dem;

a:=x[i];
end;
end;
writeln('ki tu ',a,' xuat hien ',max,' lan');

readln;
end.

Mik sắp thi rồi còn ngày thứ 6 mik thi các bạn chúc các bạn thi tốt nhé

Trước khi thi mik xin chúc các bạn mạnh khỏe ăn ngon chóng lớn và tick cho mik nha

Ai muốn đổi tick thì vào đây 

Bạn phải nấu một món ăn  cho 1 tên sát nhân thì bạn mới được giải thoát nhưng khi bạn đang nấu hắn ta đã lén vào bỏ muối vào.Hỏi khi bạn phải nấu món gì để ko mặn

Đổi tick tại đây

MAGICPENCIL

1+1=?

Hiện nay mik thấy trên OLM có nhiều câu hỏi đăng linh tinh không có phép tính đi kèm,vậy nên mik muốn thành lập ra một nhóm : CHUYÊN BÁO CÁO NGƯỜI NÀO ĐĂNG CÂU LINH TINH(hhi cái tên tự đặt có tên gì khác m.n cmt). Nhóm này mik làm nhóm trưởng mik muốn có thêm 5 người làm tổ phó,mik sẽ tìm sau khi có danh sách.

Điều kiện:

-ko nhường nhịn dù là người thân

-khi phát hiện có câu như thế ,thì phải nói liền với nhóm để cùng báo cáo

-nhất là ko ai trong nhóm đc trả lời và đăng câu linh tinh lên diễn đàn

~ hết ~

ai muốn vào nhóm cứ cmt(bình luận)

nhóm gồm mấy người cx đc