Câu hỏi:

04/04/2024 68

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ữ thường) có trong xâu.

Trả lời:

verified 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’)

  Dem:= Dem+1;

 Writeln(Dem);

 Readln

End.

CÂU HỎI HOT CÙNG CHỦ ĐỀ

Câu 1:

Cho đoạn chương trình sau:

s := ‘Mua xuan’;

write(upcase(s[length(s)-3]));

Kết quả in ra màn hình là:

Xem đáp án » 04/04/2024 50

Câu 2:

Câu lệnh Assign(<biến tệp> , <tên tệp) ; có ý nghĩa gì?

Xem đáp án » 04/04/2024 50

Câu 3:

Câu lệnh dùng thủ tục để đóng tệp có dạng:

Xem đáp án » 04/04/2024 47

Câu 4:

Cho xâu kí tự sau: s:= ‘Nguyen Trai’. Lệnh nào sau đây cho kết quả ‘Trai’

Xem đáp án » 04/04/2024 45

Câu 5:

Khi viết một chương trình muốn trả về một giá trị ta nên dùng:

Xem đáp án » 04/04/2024 44

Câu 6:

Cho đoạn chương trình sau:

s:= ‘abcd’;

For i:= length(s) downto 1 do write(s[i]);

Kết quả in ra màn hình là:

Xem đáp án » 04/04/2024 42

Câu 7:

Cho đoạn chương trình sau:

s1 := ‘1234’; s2 := ‘abc’;

if length(s1) > length(s2) then writeln(s1) else writeln(s2);

Kết quả in ra màn hình là:

Xem đáp án » 04/04/2024 41

Câu 8:

Trong PASCAL, cú pháp khai báo biến tệp văn bản là:

Xem đáp án » 04/04/2024 40

Câu 9:

Câu lệnh Rewrite(<biến tệp>) ; có ý nghĩa gì?

Xem đáp án » 04/04/2024 40

Câu 10:

Câu lệnh dùng để đọc dữ liệu từ tệp văn bản có dạng:

Xem đáp án » 04/04/2024 40

Câu 11:

Chương trình con gồm có: (chọn câu trả lời đúng nhất)

Xem đáp án » 04/04/2024 40

Câu 12:

Cho đoạn chương trình sau:

s1 := ‘123’; s2 := ‘abc’;

insert(s1 , s2 , 1);

write(s1);

Kết quả in ra màn hình là:

Xem đáp án » 04/04/2024 39

Câu 13:

Cho đoạn chương trình sau:

s := ‘abcde’;

write(pos(‘aba’, s));

Kết quả in ra màn hình là:

Xem đáp án » 04/04/2024 39

Câu 14:

Xâu rỗng là xâu có độ dài bằng:

Xem đáp án » 04/04/2024 38

Câu 15:

Câu lệnh để gắn tên tệp ‘bai1.txt’, cho biến tệp f là:

Xem đáp án » 04/04/2024 37