Viết chương trình nhập một xâu ký tự St từ bàn phím và một ký tự ch. In ra màn hình xâu
Câu 33: Viết chương trình nhập một xâu ký tự St từ bàn phím và một ký tự ch. In ra màn hình xâu St sau khi xóa hết các ký tự ch trong xâu đó.
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.
