viết chương trình nhập vào một xâu kí tự từ bàn phím. in ra màn hình sau kí tự sau khi đã thay tất cả từ 'nắng' thành từ 'mua' GIAI NHANH GIUP MINH NHA
2 câu trả lời
program thay_doi;
uses crt;
var s:string;
begin
clrscr;
write('Nhap xau: '); readln(s);
while pos('nang',s)<>0 do
begin
insert('mua',s,pos('nang',s));
delete(s,pos('nang',s),4);
end;
write('Xau sau khi thay doi la: ',s);
readln;
end.
Uses crt;
var s:string;
begin
clrscr;
write('Nhap xau: '); readln(s);
while pos('nang',s)<>0 do
begin
insert('mua', s, pos('nang',s));
delete(s, pos('nang',s), 4);
end;
write(s);
readln
end.
