Bài 12: Kiểu xâu

TP

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

ML
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ự
AT
Xem chi tiết
TT
Xem chi tiết
H24
Xem chi tiết
AT
Xem chi tiết
LN
Xem chi tiết
NC
Xem chi tiết
PV
Xem chi tiết
KM
Xem chi tiết
VN
Xem chi tiết