Viết chương trình nhập hai xâu từ bàn phím, kiểm tra kí hiệu cuối của xâu S1 có trùng với kí tự cuối của xâu S2 không, Không phân biệt chữ in thường in hoa
1 câu trả lời
huy 7 hỏi đáp 247
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.
