Viết chương trình xâu a) nhập độ dài của xâu b) đếm số B trong xâu Giải giúp mình với ạ
2 câu trả lời
program bai_tap;
uses crt;
var s:string;
d,i:byte;
begin
write('Nhap xau: '); readln(s);
writeln('Do dai cua xau la: ',length(s));
d:=0;
for i:=1 to length(s) do
if s[i]='B' then d:=d+1;
write('Co ',d,' chu B trong xau');
readln;
end.
a=str(input("Nhập độ dài xâu: "))
print("Độ dài xâu là: ",len(a))
print("Có ",a.count('B')," chữ B");
