Thứ năm, 14/11/2024
IMG-LOGO

Câu hỏi:

18/07/2024 803

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.

Trả lời:

verified Giải bởi qa.haylamdo.com

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 trả lời này có hữu ích không?

0

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

Câu 1:

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

Xem đáp án » 01/09/2021 9,805

Câu 2:

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 » 01/09/2021 5,890

Câu 3:

Để khai báo hàm trong Pascal bắt đầu bằng từ khoá:

Xem đáp án » 01/09/2021 5,669

Câu 4:

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

Xem đáp án » 01/09/2021 5,398

Câu 5:

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

Xem đáp án » 01/09/2021 3,238

Câu 6:

Trong PASCAL, để khai báo biến tệp văn bản ta phải sử dụng cú pháp:

Xem đáp án » 01/09/2021 3,208

Câu 7:

Viết các câu lệnh để đọc dữ liệu từ tệp “dulieu.txt” 2 biến a, b (sử dụng biến tệp f1).

Xem đáp án » 01/09/2021 3,105

Câu 8:

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

s := ’ABCDEF’;

delete(s, 3, 2);

insert(‘XYZ’, s, 1);

write(s);

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

Xem đáp án » 01/09/2021 3,058

Câu 9:

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

Xem đáp án » 01/09/2021 2,979

Câu 10:

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 » 01/09/2021 2,362

Câu 11:

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

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

insert(s1 , s2 , 2);

write(s1);

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

Xem đáp án » 01/09/2021 2,348

Câu 12:

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

s := ‘abcde’;

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

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

Xem đáp án » 01/09/2021 1,672

Câu 13:

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

Xem đáp án » 01/09/2021 1,145

Câu 14:

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

Xem đáp án » 01/09/2021 1,054

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 » 01/09/2021 1,054