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

Chơi đi đừng lo lắng gì
Học nhiêu đây cũng đủ lắm rồi
Dù ta có thi bao nhiêu môn
Hay ngày thi cũng đã đến gần
Cứ từ từ, không chết đâu em.

Học xong ra trường cũng thất nghiệp
Hoặc cao hơn là đi bán hàng
Học cho lắm tắm cũng ở chuồng
Đời sinh viên chỉ có vài tháng
Hãy chơi đi, để không bao giờ hối tiếc.

Dù tương lai bạn đi vá xe đạp xe xích lô, ăn xin đầu đường
Đừng quan tâm vì còn có tôi nhục chung với bạn, bạn đừng lo nha
Thời gian sẽ nói lên tất cả nếu học nhiều hơn cũng vẫn như vậy
Vậy tại sao không chơi hết mình để ta có nhiều kỷ niệm cho nhau
Thi xong học lại...

ahihih

tâm sự mấy bn đag đau đầu a!