Cho một xâu S chỉ gồm các chữ cái in thường với độ dài tối đa 250 ký tự. Em 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 một kí tự đại diện trong đoạn đó.
Dữ liệu vào: Đọc từ file văn bản XAUGON.INP chứa xâu S chỉ gồm các chữ cái in thường.
Kết quả: Ghi ra file văn bản XAUGON.OUT là xâu SG tìm được.
Ví dụ:
XAUGON.INP : hhooocccsssiiiiinnnhhh
XAUGON.OUT: hocsinh
Mn giup vs a
var f1,f2:text; s,sg:string; i:byte; begin assign(f1,'XAUGON.INP');reset(f1); assign(f2,'XAUGON.OUT');rewrite(f2); readln(f1,s); sg:=''; for i:=1 to length(s) do if s[i]<>s[i+1] then sg:=sg+s[i]; writeln(f2,sg); close(f1);close(f2); end.
uses crt; var f:text; i,j:longint; s,sg:string; begin clrscr; assign(f,'XAUGON.INP');reset(f); readln(f,s); close(f); assign(f,'XAUGON.OUT');rewrite(f); for i:=1 to length(s) do if s[i]<>s[i+1] then sg:=sg+s[i]; writeln(f,sg); close(f); end.