Nội dung bài viết

    Xem thêm

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

    Vietjack.me giới thiệu bộ câu hỏi ôn tập Tin học có đáp án được biên soạn bám sát chương trình học giúp bạn ôn luyện và bổ sung kiến thức môn Tin học tốt hơn. Mời các bạn đón xem:

    1 447 03/08/2023
    Trang trước
    Chia sẻ
    Trang sau  

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

    Đề bài: 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.

    Bài viết cùng lớp mới nhất

    Xem thêm
    1 447 03/08/2023
    Trang trước
    Chia sẻ
    Trang sau  

    Xem thêm các chương trình khác: