Nhập Vào 1 xâu từ bàn phím và 1 kí tự bất kỳ đưa ra màn hình xâu thu được sau khibddax xoá kí tự bất kì trong xâu đã nhận Xâu ban đầu 'Lop 11C7' Nhập kí tự bất kì '1' Kết quả ra màn hình 'Lop C7' Giúp mình giải bài này nha
1 câu trả lời
program xoa_kitu;
uses crt;
var s:string;
k:char;
begin
clrscr;
write('Nhap xau: '); readln(S);
write('Nhap ki tu: '); readln(k);
while pos(k,s)<>0 do
delete(s,pos(k,s),1);
write('Xau khi xoa la: ',s);
readln;
end.
