Question

[Ngoc Huyen]

viết chương trình nhập 1 xâu S từ bàn phím. Thay "g" có trong xâu thành "h". Xuất xâu S ra màn hình. 

Answer 1

[Minh Lệ]

Program HOC24;

var s: string;

i: byte;

begin

write('Nhap xau S= '); readln(s);

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

begin

insert('h',s,pos('g',s));

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

end;

write('S= ',s);

readln

end.