nhập từ bàn phím xâu s1 thay thế tất cả các kí tự số bằng em giúp em với ạ em cảm ơn
2 câu trả lời
Var s: string;
i: byte;
Begin
Write('Nhap sau S:'); Readln(s);
I:=Pos('em',s);
While i<> 0 do
Begin
Delete(s,i,3);
Insert('anh',s,i);
I:=Pos('em',s);
End;
writeln(S);
readln;
End.
program thay_the;
uses crt;
var s1:string;
i:integer;
begin
clrscr;
write('Nhap xau: '); readln(s1);
i:=1;
while i<=length(s1) do
begin
if s1[i] in ['0'..'9'] then
begin
delete(s1,i,1);
insert('em',s1,i);
i:=i+2;
end;
i:=i+1;
end;
readln;
end.
