Bài 12: Kiểu xâu

Trâm Phạm

Nhập vào 1 xâu từ bàn phím . Đếm và in ra màn hình 1 số kí tự là "b" có trong xâu . Đưa ra màn hình xâu đã xóa hết các kí tự "b" có thể giải nhanh giúp mình ko ạ tại mình đang cần gấp

Minh Lệ
23 tháng 3 2023 lúc 6:03

Program HOC24;

var i,d: byte;

s: string;

begin

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

d:=0;

for i:=1 to length(s) do

if s[i]='b' then d:=d+1;

writeln('Co ',d,' ki tu b');

write('Xau moi sau khi da xoa la: ');

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

readln

end.

Bình luận (0)

Các câu hỏi tương tự
Anh Thư
Xem chi tiết
Tiên Tiên
Xem chi tiết
Hiếu
Xem chi tiết
Anh Thư
Xem chi tiết
Long Nhi
Xem chi tiết
Nguyễn Chi
Xem chi tiết
Phạm Vy
Xem chi tiết
Khánh Mỹ
Xem chi tiết
Võ Thị Thái Ngọc
Xem chi tiết