Quảng cáo
1 câu trả lời 209
2 năm trước
Program HOC24;
var s: string[100];
d: byte;
begin
write('Nhap xau : '); readln(s);
d:=0;
for i:=1 to length(s) do
if s[i]='A' then d:=d+1;
write(d);
readln
end.
Quảng cáo
Câu hỏi hot cùng chủ đề
Gửi báo cáo thành công!