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:
Giải bởi Vietjack
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.
Đăng nhập để xem lời giải
Lưu tiến độ và luyện tập hiệu quả hơn. Hoàn toàn miễn phí!
Đang tải chế độ Học...
Dành cho bạn Hot
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
Đăng nhập để xem lời giải
Lưu tiến độ và luyện tập hiệu quả hơn. Hoàn toàn miễn phí!
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
Đăng nhập để xem lời giải
Lưu tiến độ và luyện tập hiệu quả hơn. Hoàn toàn miễn phí!
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);
Đăng nhập để xem lời giải
Lưu tiến độ và luyện tập hiệu quả hơn. Hoàn toàn miễn phí!
Lời giải
Bạn cần đăng ký gói VIP ( giá chỉ từ 250K ) để 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. 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ả>);
Đăng nhập để xem lời giải
Lưu tiến độ và luyện tập hiệu quả hơn. Hoàn toàn miễn phí!
Lời giải
Bạn cần đăng ký gói VIP ( giá chỉ từ 250K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.
Câu 5
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
Đăng nhập để xem lời giải
Lưu tiến độ và luyện tập hiệu quả hơn. Hoàn toàn miễn phí!
Lời giải
Bạn cần đăng ký gói VIP ( giá chỉ từ 250K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.
Đăng nhập để xem lời giải
Lưu tiến độ và luyện tập hiệu quả hơn. Hoàn toàn miễn phí!
Lời giải
Bạn cần đăng ký gói VIP ( giá chỉ từ 250K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.
Đăng ký để học cùng Vietjack. Hoàn toàn miễn phí!
Bằng việc đăng ký, bạn đồng ý với Điều khoản sử dụng và Chính sách bảo mật của Vietjack.
Nhắn tin Zalo
Hỏi bài tập