viết chương trình nhập vào 1 xâu từ bàn phím in ra màn hình các chữ cái có trong xâu khong phân biệt chữ hoa hay chữ thường
1 câu trả lời
Program HOC24;
var s: string;
i,d: byte;
begin
write('Nhap xau: '); readln(s);
d:=0;
for i:=1 to length(s) do if (s[i]='b') or (s[i]='B') then d:=d+1;
write('Co ',d,' ki tu B trong xau');
readln
end.
