Viết chương trình nhập vào một câu cho biết câu đó có bao nhiêu từ?

0 bình luận về “Viết chương trình nhập vào một câu cho biết câu đó có bao nhiêu từ?”

1. program demtu;

   uses crt;

   var s:string;

          d,i:word;

   begin

        clrscr;

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

        d:=1;

        for i:=2 to length(s) do

             if s[i]=’ ‘ then d:=d+1;

        write(‘Cau tren co ‘,d,’ tu’);

        readln;

   end.

        

   Bình luận

2. program dem_tu;

   uses crt;

   var st:string;

          d,i:byte;

   begin

        clrscr;

        write(‘Nhap xau: ‘);   readln(st);

        d:=1;

        for i:=2 to length(st) do

             if st[i]=’ ‘ then d:=d+1;

        write(‘Cau tren co ‘,d,’ tu’);

        readln;

   end.

   Bình luận