Cho xâu S , hãy tách và đếm xem trong xâu có bao nhiêu từ .

476

Tailieumoi.vn biên soạn và giới thiệu bộ câu hỏi Tin học gồm các kiến thức lý thuyết và thực hành, giúp học sinh ôn tập và bổ sung kiến thức cũng như hoàn thành tốt các bài kiểm tra môn Tin học. Mời các bạn đón xem:

Top 1000 câu hỏi thường gặp môn Tin học (Phần 4)

Câu 65: Cho xâu S , hãy tách và đếm xem trong xâu có bao nhiêu từ .

 VD: I Love You gồm có 3 kí tự và 8 từ (10 từ nếu tính dấu cách )

Lời giải:

var s: string;

p: array[1..10] of string;

i,k,dem: byte;

begin

write('Nhap xau: ');readln(s);

k:=1;

For i:=1 to length(s) do

If s[i] <> #32 then

p[k]=p[k]+s[i]

else k=k+1;

For k=1 to 50 do

If p[k] <> "" then dem=dem+1;

write('Co ',dem,' tu');

readln

end.

Đánh giá

0

0 đánh giá