Viết chương trình nhập vào một xâu bất kì; Thay thế từ được chỉ ra (nhập từ bàn phím) bằng một từ khác (nhập từ bàn phím). Cứu mình với ạ!!!!
1 câu trả lời
program bai_giai;
uses crt;
var tdcr,mtk:char;i:longint;s:string;
begin
clrscr;
write('nhap xau:');readln(s);
write('nhap tu duoc chi ra:');readln(tdcr);
write('nhap 1 tu khac:');readln(mtk);
for i:=1 to length(s)do if(s[i]=tdcr)then
begin
delete(s,i,1);
insert(mtk,s,i);
end;
write(s);
readln;
end.
Câu hỏi trong lớp
Xem thêm
