2 câu trả lời
uses crt;
var i:longint;
p:char;
st:string;
begin
clrscr;
write('Nhap vao xau st= ');
readln(st);
write('Nhap p vao= ');
readln(p);
for i:=1 to length(st) do
if st[i]=p then delete(st,i,1);
writeln('Xau st sau khi xoa: ',st);
readln;
end.
$#QLinkVN$
CẤU TRÚC CHƯƠNG TRÌNH NHƯ SAU:
Program lmao;
Uses crt;
Var st: string; p: integer;
Begin
Clrscr;
Writeln('Nhap xau ban muon: '); readln(st);
Writeln('Nhap vi tri cua ky tu ma ban muon xoa: '); readln(p);
Delete (st,p,1);
Writeln('Xau sau khi thay doi la ',st);
Readln;
End.
KHI NHẬP XÂU "vietnam" VÀ CHỌN XÓA KÍ TỰ THỨ 6 THÌ ĐƯỢC KẾT QUẢ NHƯ MÀN HÌNH!!!
