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
1 câu trả lời
uses crt;
var s:string;
i,count:longint;
begin
clrscr;
readln(s);
for i:=1 to length(s) do
if s[i] in ['A'..'Z'] then inc(count);
write(count);
readln;
end.
