Viết chương trình:
Nhập vào một xâu kí tự.
Đếm và in ra màn hình số kí tự là số có trong xâu.
Var a: string;
I,dem: integer;
Begin
Readln(a);
Dem:=0;
For i:=1 to length(a) do
If (‘0’<=a[i]) and (a[i]<=’9’) then dem:=dem+1;
Writeln(dem);
Readln
End.
Câu hỏi trong đề: Top 4 Đề thi giữa kì 2 Tin học 11 có đáp án !!
Quảng cáo
Trả lời:

Var a: string;
i, Dem: integer;
Begin
writeln(‘nhap xau:’);
Readln(a);
Dem:=0;
For i:=1 to length(a) do
If (‘0’<=a[i]) and (a[i]<=’9’) then Dem:= Dem+1;
Writeln(Dem);
Readln
End.
Hot: Học hè online Toán, Văn, Anh...lớp 1-12 tại Vietjack với hơn 1 triệu bài tập có đáp án. Học ngay
- Trọng tâm Hóa học 11 dùng cho cả 3 bộ sách Kết nối, Cánh diều, Chân trời sáng tạo VietJack - Sách 2025 ( 58.000₫ )
- Trọng tâm Sử, Địa, GD KTPL 11 cho cả 3 bộ Kết nối, Chân trời, Cánh diều VietJack - Sách 2025 ( 38.000₫ )
- Sách lớp 11 - Trọng tâm Toán, Lý, Hóa, Sử, Địa lớp 11 3 bộ sách KNTT, CTST, CD VietJack ( 52.000₫ )
- Sách lớp 10 - Combo Trọng tâm Toán, Văn, Anh và Lí, Hóa, Sinh cho cả 3 bộ KNTT, CD, CTST VietJack ( 75.000₫ )
CÂU HỎI HOT CÙNG CHỦ ĐỀ
Câu 1
A. Thủ tục gắn tên tệp cho tên biến tệp
B. Khai báo biến tệp
C. Thủ tục mở tên để đọc dữ liệu
D. Thủ tục đóng tệp
Lời giải
Đáp án đúng : C
Câu 2
A. Mở tệp => Gắn tên tệp => Đọc dữ liệu từ tệp => Đóng tệp
B. Gắn tên tệp => Mở tệp => Đọc dữ liệu từ tệp => Đóng tệp
C. Mở tệp => Đọc dữ liệu từ tệp => Gắn tên tệp => Đóng tệp
D. Gắn tên tệp => Đọc dữ liệu từ tệp => Mở tệp => Đóng tệp
Lời giải
Đáp án đúng : B
Câu 3
A. assign(bai1.txt, f);
B. assign( f, ‘bai1.txt’);
C. assign( f, bai1.txt);
D. assign(‘bai1.txt’, f);
Lời giải
Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.
Câu 4
A. Hằng và biến
B. Hàm và hằng
C. Hàm và thủ tục
D. Thủ tục và biến
Lời giải
Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.
Lời giải
Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.
Câu 6
A. Read(<tên tệp>,<danh sách kết quả>);
B. Read(<tên biến tệp>,<danh sách kết quả>);
C. Write(<tên tệp>,<danh sách kết quả>);
D. Write(<tên biến tệp>,<danh sách kết quả>);
Lời giải
Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.