Nhập một xâu bất kì từ bàn phím Xóa tất cả các ký tự a
2 câu trả lời
uses crt;
var a:string;
begin
clrscr;
readln(a);
while pos('a',a)<>0 do
delete(a,pos('a',a),1);
writeln(a);
end.
var s: string;
i: byte;
Begin
Write('nhap xau: '); readln(s);
i:=1;
While i<=length(s) do
If s[i]='a' then delete(s, i, 1)
Else inc(i);
Write(s);
Readln
End.
