Viết chương trình nhập từ bàn phím xâu kí tự S có độ dài không quá 120 kí tự. Hãy cho biết có bao nhiêu kí tự cách xuất hiện trong xâu S.
a. Đưa kết quả ra màn hình
b. Ghi kết quả vào tên tệp “dulieu.dat”
Quảng cáo
1 câu trả lời 928
Var S : string [120];
i, dem : integer;
Begin
Write ('Nhap xau S:');
Readln (S);
For i:=1 to length (S) do
If S[i]=' ' then dem := dem +1;
Writeln ('Co',dem,'ki tu cach trong xau S');
Readln
End.
i, dem : integer;
Begin
Write ('Nhap xau S:');
Readln (S);
For i:=1 to length (S) do
If S[i]=' ' then dem := dem +1;
Writeln ('Co',dem,'ki tu cach trong xau S');
Readln
End.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
4301
Gửi báo cáo thành công!
