Question

viết chương trình nhập một xâu từ bàn phím

-thay ký tự 'a' thành 'i' và in xâu đã thay ra màn hình

- thay tất cả chữ 'anh' thành em'

Answer 1

*Hình như đề là 2 bài riêng đúng không. Nếu là 1 bài chung thì ý 2 sẽ không bao giờ thực hiện được.

-thay ký tự 'a' thành 'i' và in xâu đã thay ra màn hình

Giải:

Program HOC24;

var s: string;

begin

write('Nhap xau : '); readln(s);

while pos('a',s)<>0 do

begin

insert('i',s,pos('a',s));

delete(s,pos('a',s),1);

end;

write('Xau sau khi chuyen la : ',s);

readln

end.

Answer 2

- thay tất cả chữ 'anh' thành em'

Giải :

Program HOC24;

var s: string;

begin

write('Nhap xau : '); readln(s);

while (pos('anh',s)<>0) do

begin

insert('em',s,pos('anh',s));

delete(s,pos('anh',s),3);

end;

write('Xau sau khi thay la : ',s);

readln

end.