Cho xâu kí tự S có độ dài n (n <=106), chỉ bao gồm hai loại ký tự ‘A’, ‘B’. Yêu cầu: Hãy đếm số lượng ký tự A và số lượng kí tự B có trong xâu S. Dữ liệu vào: Từ file văn bản QUERYAB.INP; Chứa xâu S. Kết quả: Ghi ra file văn bản QUERYAB.OUT là một cặp số nguyên là số ký tự A, số kí tự B mỗi số cách nhau một dấu cách trống. VD: QUERYAB.INP QUERYAB.OUT ABBAB 2 3
uses crt;
var st : string;
d1,d2 ,i : integer;
begin clrscr;
d1:=0; d2:=0;
assign(input,’QUERYAB.INP’);
assign(output,’QUERYAB.OUT’);
reset(input);rewrite(output);
read(input,st);
for i:=1 to length(st) do if st[i]=’A’ then d1:=d1+1 else d2:=d2+1;
write(output,d1,d2);
close(input); close(output);
readln
end.
#include <iostream>
#include <fstream>
#include <string>
using namespace std;
int main()
{
int a=0,b=0;
fstream f;
f.open(“QUERYAB.INP”, ios::in);
string data;
getline(f, data);
f.close();
for(int i=0;i<data.size();i++){
if(data[i]==’A’){
a++;
}
if(data[i]==’B’){
b++;
}
}
fstream st;
st.open(“QUERYAB.OUT”, ios::out);
st << a<<” “<<b;
st.close();
//samon247
return 0;
}