Nhập một xâu s có độ dài tùy ý. Hãy cho biết số lượng kí tự là chữ hoa trong xâu s

Pascal:

uses crt;
var s:string; i,d:byte;
begin
clrscr;
   readln(s);
   for i:=1 to length(s) do 
      if s[i] in [‘A’..’Z’] then inc(d);
   writeln(d);
readln;
end.

C++:

#include<iostream>
using namespace std;
int main() {
    string s;
    int d=0;
    cin>>s;
    for (int i=0;i<s.size();i++) {
        if (s[i]>=’A’ && s[i]<=’Z’) {
            d++;
        }
    }
    cout<<d;
}

Python:

s=str(input())
d=0
for i in s:
    if i.isupper():
        d+=1
print(d)