viết chương trình nhập từ bàn phím 1 xâu kí tự S đếm số lượng kí tự B trong xâu S ( không phân biệt chữ hoa và chữ thường)
1 câu trả lời
program Xau;
uses CRT;
var s: string;
i,d: byte;
begin
clrscr;
write('Nhap xau S: ');readln(s);
for i:=1 to length(s) do
If s[i] = 'b' then d:=d+1 else
If s[i] = 'B' then d:=d+1;
write('SL ki tu b la: ',d);
readln;
end.
