program ct;

uses crt;

var s:string;

dem1, dem0, i:integer;

begin

write('nhap xau s:='); readln(s); dem1:=0; dem0:=0;

for i:=1 to length(s) do

if s[i]='0' then 

begin

dem0:=dem0+1;

end;

for i:=1 to length(s) do

if s[i]='1' then

begin

dem1:=dem1+1;

end;

writeln('co ',dem0,' ki tu 0 trong xau');

writeln('co ',dem1,' ki tu 1 trong xau');

readln;

end.

Nếu s chỉ gồm các kí tự '0' và '1' thì làm như sau, nếu không phải thì bạn nói để mình sửa code

#include <bits/stdc++.h>
using namespace std;
int main()
{
    string s;
    long n;
    cin >> n;
    cin >> s;;
    long dem=0;
    for (long i=0; i<n; i++)
    {
        if (s[i]=='0') dem+=1;
    }
    cout << "so luong ki tu '0': " << dem << endl << "so luong ki tu '1': " << n-dem << endl;
}

*Ảnh (mình nhập đại)