Bài 12: Kiểu xâu

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Ngann555

Giúp mình với:(

Nhập xâu s, xóa kí tự 'a' trong xâu đã nhập.

'abcaa' -> 'bc'

Nguyễn Lê Phước Thịnh
19 tháng 4 2020 lúc 16:37

uses crt;
var s,st:string;
d,i:integer;
begin
clrscr;
write('nhap xau:'); readln(s);
d:=length(s);
st:='';
for i:=1 to d do
if s[i]<>'a' then st:=st+s[i];
writeln(st);
readln;
end.


Các câu hỏi tương tự
Trâm Phạm
Xem chi tiết
Khánh Mỹ
Xem chi tiết
Hiếu
Xem chi tiết
Nguyễn Chi
Xem chi tiết
no no
Xem chi tiết
Thọ Phạm
Xem chi tiết
Huy Lê Đình
Xem chi tiết
Anh Thư
Xem chi tiết
Hakai
Xem chi tiết
Tình Nguyễn thanh
Xem chi tiết