thay "cha" = "ba"

By: Unknown on 4/23/2012 12:25:00 AM

Share it Please

Tweet

uses crt;
var S:string;
i,n:integer;
begin
clrscr;
write('Nhap xau: ');readln(s);
while pos('cha',s)<> 0 do
begin
n:=pos('cha',s);
delete(S,n,3);
insert('ba',s,n);
END;
write('Xau moi: ',s);
readlnend.