Câu hỏi:

13/07/2024 17,271

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à dấu cách có trong xâu.

Sách mới 2k7: Sổ tay Toán, Lí, Hóa, Văn, Sử, Địa... kỳ thi tốt nghiệp THPT Quốc gia 2025, đánh giá năng lực (chỉ từ 30k).

Sổ tay Toán-lý-hóa Văn-sử-đia Tiếng anh & các môn khác

Quảng cáo

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[i] =’ ‘ then

  Dem:= Dem+1;

 Writeln(Dem);

 Readln

End.

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

Câu 1:

Hãy chọn thứ tự hợp lí nhất khi thực hiện các thao tác ghi dữ liệu vào tệp :

Xem đáp án » 09/07/2020 41,726

Câu 2:

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

Xem đáp án » 09/07/2020 38,190

Câu 3:

Nếu hàm eoln( ) cho giá trị bằng true thì con trỏ tệp nằm ở vị trí:

Xem đáp án » 09/07/2020 25,312

Câu 4:

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

Xem đáp án » 09/07/2020 23,820

Câu 5:

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

Xem đáp án » 09/07/2020 13,748

Câu 6:

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

Xem đáp án » 09/07/2020 13,624

Bình luận


Bình luận