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

Answer 1

tk 
 

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.