Nhập một xâu bất kì từ bàn phím Xóa tất cả các ký tự a 19/07/2021 Bởi Iris Nhập một xâu bất kì từ bàn phím Xóa tất cả các ký tự a
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. Bình luận
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.