Viết chương trình nhập vào 2 xâu s1 và s2 từ bàn phím với ít nhất mỗi xâu gồ ít nhất 6 phần tử và thực hiện các lệnh sau Xóa trong xâu s2 bắt đầu từ phần tử 5và xóa đi 4 phần tử
2 câu trả lời
program bai_giai;
uses crt;
var s1,s2:string;
begin
clrscr;
readln(s1);
readln(s2);
delete(s,5,4);
writeln(s1); writeln(s2);
readln;
end.
var s,s2:string;
i:integer;
begin
write('nhap s: '); readln(s);
write('nhap s2: '); readln(s2);
delete(s2,5,4);
write(s2);
readln;
end.
