uses crt;
var s:string;
a,b,c,i:longint;
begin
clrscr;
readln[s];
for i:-=1 to length[s] do
begin
if s[i] in ['A'..'Z'] then a:=a+1;
if s[i] in ['a'..'z'] then b:=b+1;
if s[i]>'1' and S[i]
viết chương trình đếm số ký tự chữ số trong một xâu ký tự được nhập vào từ bàn phím.
Bài Viết Liên Quan
Toplist mới
#1
Top 7 sự tích hồ gươm - ngữ văn lớp 6 2023
7 tháng trước#2
Top 7 gdcd 6 bài 1 kết nối tri thức 2023
7 tháng trước#3
Top 7 ý nghĩa của xây dựng gia đình văn hóa 2023
7 tháng trước#4
Top 6 mẫu hợp đồng mượn đất làm nhà xưởng 2023
7 tháng trước#5
Top 3 tổng tài biến thái tôi yêu anh tập 27 2023
7 tháng trước#6
Top 6 kết thực phim mỹ nhân vô lệ 2023
7 tháng trước#7
#8
Top 8 đề tài và chủ de của tác phẩm tắt đèn 2023
7 tháng trước#9
Top 5 tiểu sử của thầy thích pháp hòa 2023
7 tháng trướcBài mới nhất
Chủ Đề
programming
Hỏi Đáp
Toplist
Là gì
Bài Tập
Địa Điểm Hay
Mẹo Hay
Học Tốt
Nghĩa của từ
Công Nghệ
Khỏe Đẹp
bao nhiêu
Top List
Tiếng anh
Bao nhiêu
Sản phẩm tốt
Xây Đựng
Ngôn ngữ
javascript
Ở đâu
Đại học
Hướng dẫn
Bài tập
Tại sao
Dịch
So Sánh
Máy tính
Món Ngon
mẹo hay
Bao lâu
Thế nào
So sánh
Khoa Học
Vì sao
Lớp 9
Lớp 10