Nhập một sau bất kì từ bàn phím. A) Cho biết độ dài của xâu. B) Xóa tất cả các cụ từ là ‘anh’ và thay thế bằng từ ‘em’. Giúp em với ạ em cảm ơn nhìu ?
2 câu trả lời
uses crt;
var a : string;
i : integer;
begin
clrscr;
write('Nhap xau : '); readln(a);
writeln('Do dai cua xau : ', length(a));
for i := 1 to length(a) - 1 do
if a[i] + a[i + 1] + a[i + 2] = 'anh'
then
begin
delete(a, i, 3);
insert('em', a, i);
end;
writeln('Xau moi : ', a);
readln
end.
