Viết chương trình nhập vào xâu bất kì. Tìm vị trí xuất hiện đầu tiên của kí tự a và thực hiện xóa 3 kí tự tại vị trí đó. In xâu thu được sau khi xóa ra màn hình
2 câu trả lời
uses crt;
var s:string;
i:integer;
begin
clrscr;
writeln('Nhap xau s: '); readln(s);
i:=pos('a',s);
delete(s,i,3);
write(s);
readln
end.
program bai_giai;
uses crt;
var s:string;
begin
clrscr;
readln(s);
if pos('a',s)<>0 then delete(s,pos('a',s),3);
write(s);
readln;
end.
Câu hỏi trong lớp
Xem thêm
