tim xau 1 trong xau 2
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (17.04 KB, 1 trang )
uses crt;
var sao,me,con:string;
c:char;
begin
clrscr;
write('Nhap xau me: ');
readln(me);
write('Nhap xau con: ');
readln(con);
writeln(' ',me);
writeln(' ',con);
sao:=me;
if con[1]<>'a' then c:='b' else c:='a';
while pos(con,me)<>0 do
begin
write(' ',pos(con,me),' ');
insert(c,me,pos(con,me));
delete(me,pos(con,me),length(con));
end;
readln;
end.
