Hoang Thi Ngoc Trang
Hỏi từ APP VIETJACK
Viết chương trình nhập một xâu kí tự . Sau đó đếm và in ra ký tự b' trong xâu đó
Quảng cáo
1 câu trả lời 209
Var a: string;
i, Dem: integer;
Begin
writeln(‘nhap xau:’);
Readln(a);
Dem:=0;
For i:=1 to length(a) do
If a[i] ='b'' then
Dem:= Dem+1;
Writeln(Dem);
Readln
End.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
55552 -
Đã trả lời bởi chuyên gia
31498 -
30035
Gửi báo cáo thành công!
