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à chữ cái (chữ hoa) có trong xâu.
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 (‘A’<=a[i]) and (a[i]<=’Z’) then
Dem:= Dem+1;
Writeln(Dem);
Readln
End.
Hot: 1000+ Đề thi cuối kì 2 file word cấu trúc mới 2026 Toán, Văn, Anh... lớp 1-12 (chỉ từ 60k). Tải ngay
Các sản phẩm khác của Vietjack:
CÂU HỎI HOT CÙNG CHỦ ĐỀ
Câu 1
A. Cuối tệp
B. Đầu dòng
C. Đầu tệp
D. Cuối dòng
Lời giải
Đáp án đúng : A
Câu 2
A. Thủ tục gắn tên tệp cho tên biến tệp
B. Thủ tục mở tên để đọc dữ liệu
C. Khai báo biến tệp
D. Thủ tục đóng tệp
Lời giải
Đáp án đúng : C
Câu 3
A. Close(<tên tệp>);
B. Stop(<biến tệp>);
C. Stop((<tên tệp>);
D. Close(<biến tệp>);
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.
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. ‘X’
B. ‘U’
C. ‘A’
D. ‘N’
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 6
A. 0
B. ‘0’
C. 3
D. ‘3’
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 7
A. <biến tệp> := <tên tệp>;
B. assign(<biến tệp> , <tên tệp>);
C. <tên tệp> := <biến tệp>;
D. assign(<tên tệp> , <biến tệp>);
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.
Nhắn tin Zalo
Hỏi bài tập