0
0
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
1769
1692
uses crt;
var s:string; i:byte;
begin
clrscr;
write('Nhap xau: '); readln(s);
while i<=length(s) do
begin
if (s[i]='B') or (s[i]='b') then
begin
delete(s,i,1);
i:=i-1;;
end;
i:=i+1;
end;
write('Xau ket qua la: ',s);
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
2288
1724
uses crt;
var s: string;
i: longint;
begin
clrscr;
readln(s);
for i:=1 to length(s) do
if (s[i] = 'B') or (s[i] = 'b') then delete(s, i, 1);
writeln(s);
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin