Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
TRẢ LỜI
var i, dem:Integer;
n:string;
begin
read(n);
for i := 1 to length(n) do
if (n[i]<>' ') and (n[i+1]=' ') then
inc(dem);
if n[length(n)]<>' ' then inc(dem);
write(dem);
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
51 vote
Bạn muốn hỏi điều gì?
Đặt câu hỏiTham Gia Group Dành Cho Lớp 9 - Ôn Thi Vào Lớp 10 Miễn Phí
Câu 2: ĐẺM SỐ TỪ
demtu.pas
Cho một xâu ký tự St có độ dài tối đa 255 ký tự, các ký tự được lấy từ
tập: ‘a’... ‘Z’;‘A’ ... ‘Z’ và ký tự dấu cách.
Yêu cầu: Đếm số từ xuất hiện trong xâu St (một từ cách nhau ít nhất một
khoảng trắng).
Dữ liệu vào: Cho trong tệp demsotu.inp ghi xâu kí tự.
...
Bảng tin
Bạn muốn hỏi điều gì?
Đặt câu hỏi
Cơ quan chủ quản: Công ty Cổ phần Công nghệ Giáo dục Thành Phát
Tải ứng dụng
Inbox: m.me/hoidap247online
Trụ sở: Tầng 7, Tòa Intracom, số 82 Dịch Vọng Hậu, Cầu Giấy, Hà Nội.
Giấy phép thiết lập mạng xã hội trên mạng số 331/GP-BTTTT do Bộ Thông tin và Truyền thông.
490
889
693
vào nhóm mk ko ạ
1483
23477
1565
Vô nhóm tớ không ạ ?
878
16288
459
ko nha