Question

Viết chương trình nhập vào một xâu ký tự St1 (nhỏ hơn 30 ký tự), hãy loạibỏ khỏi xâu nhóm các ký tự ‘abc’ và xuất ra xâu St2 sau khi đã loại bỏ các ký tựtrên.

Ví dụ:Nhập vào xâu là: acabcababcacKết quả được xâu St2 là: acabac

Answer 1

uses crt;

var st1:string;   

i,d:integer;

begin

clrscr;

write('Nhap xau:'); readln(st1);

d:=length(st1);

for i:=1 to d do

  if (st1[i]='a') and (st1[i+1]='b') and (st1[i+2]='c') then delete(st1,i,3);

writeln(st1);

readln;

end.