ý tưởng:
-gọi d1 là số kí tự hoa,d2 là số kí tự thường
-cho biến i chạy từ 1 đến length(s)
-if s[i] in ['A'..'Z'] then inc(d1) else inc(d2);
program bai_tap;
i,d1,d2:integer;s:string;
begin
writeln('nhap s:');
readln(s);
d1:=0;d2:=0;
for i:= 1 to length(s) do
if s[i] in ['A'..'Z'] then inc(d1)
else inc(d2);
writeln('co ',d1,' ki tu hoa');
writeln('co ',d2,' ki tu thuong');
readln
end.