Quảng cáo
1 câu trả lời 101
Lời giải:
uses crt;
var i : byte; St : string; ch : char;
begin
clrscr;
write('Nhap xau ki tu : '); readln(St);
write('Nhap ki tu : '); readln(ch);
i := 1; while i <= length(St) do
begin if St[i] = ch then begin
delete(St, i, 1); i := i; end
else i := i + 1; end;
write('Xau moi : ', St);
readln
end.

Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
149346 -
Đã trả lời bởi chuyên gia
99768 -
Đã trả lời bởi chuyên gia
97375 -
Đã trả lời bởi chuyên gia
80043 -
Đã trả lời bởi chuyên gia
72882 -
Đã trả lời bởi chuyên gia
55970 -
Đã trả lời bởi chuyên gia
55345
Gửi báo cáo thành công!
