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

Nhập vào từ bàn phím một xâu kí tự S. Viết chương trình thực hiện xóa các kí tự 'a' có trong xâu S. Sau đó hiển thị kết quả xâu S sau khi đã xóa kí tự 'a' ra màn hình

Minh Lệ
28 tháng 4 2021 lúc 13:39

Program HOC24;

var s: string;

i: byte;

begin

write('Nhap xau :'); readln(s);

for i:=1 to length(s) do if s[i]<>'a' then write(s[i]);

readln

end.

Nguyễn Lê Phước Thịnh
28 tháng 4 2021 lúc 19:12

uses crt;

var st:string;

i,d:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

for i:=1 to d do 

 if st[i]='a' then delete(st,i,1);

writeln(st);

readln;

end.


Các câu hỏi tương tự
Linh Tran
Xem chi tiết
feng
Xem chi tiết
Nguyễn Thảo Vy
Xem chi tiết
Dao Vo
Xem chi tiết
Nguyễn Thị Mỹ Tiền
Xem chi tiết
Đào Đào
Xem chi tiết
Đinh Đức Quảng
Xem chi tiết
Lê Phú
Xem chi tiết
Phạm Hào
Xem chi tiết