cho 1 xâu S chỉ gồm các chữ cái in thường với độ dài tối đa 250 kí tự . hãy viết chương trình để tạo ra xâu SG từ xâu S bằng cách xóa các kí tự liên tiếp giống nhau trong xâu S và chỉ để lại 1 kí tự đại diên trong đoạn đ
2 câu trả lời
program xoa_trung;
uses crt;
var s,sg:string;
i:byte;
begin
clrscr;
write('Nhap xau S: '); readln(s);
sg:=''; s:=s+' ';
for i:=1 to length(s)-1 do
if s[i]<>s[i+1] then sg:=sg+s[i];
write('Xau SG la: ',sg);
readln;
end.
