giúp mình bài này với :< Viết Chương trình nhập từ bàn phím một xâu. Thay thế tất cả các cụm ký tự ‘anh’ bằng cụm ký tự ‘em’. (Lưu ý: nếu xâu không có từ anh thì báo là không có cụm ký tự ‘anh’)
giúp mình bài này với :< Viết Chương trình nhập từ bàn phím một xâu. Thay thế tất cả các cụm ký tự ‘anh’ bằng cụm ký tự ‘em’. (Lưu ý: nếu xâu không có từ anh thì báo là không có cụm ký tự ‘anh’)
uses crt;
var s,em:string;
i,dem:integer;
begin
clrscr;
em:=’em’;
write(‘Nhap s: ‘); readln(s);
for i:=1 to length(s) do
if copy(s,i,3)=’anh’ then
begin
delete(s,i,3);
insert(em,s,i);
inc(dem);
end;
if dem <> 0 then write(s) else write(‘Khong co cum ky tu “anh”‘);
readln
end.