Viết chương trình nhập 1 xâu từ bàn phím đưa ra màn hình xâu đó nhưng không có kí tự chữ a
2 câu trả lời
uses crt;
var i:longint; s:string;
begin
clrscr;
write('Nhap mot xau tu ban phim: ');readln(s);
for i:=1 to length(s) do
while (s[i]='a')and(i<=length(s)) do delete(s,i,1);
writeln('Ket qua: ',s);
readln
end.
uses crt;
var S : string;
i : byte;
begin
clrscr;
readln(S);
for i := 1 to length(S) do
if (S[i] <> 'a') and (S[i] <> 'A') then write(S[i]);
readln
end.
