nhập vào 1 xâu. đưa ra số từ của xâu (xâu nhập là xâu chuẩn hóa)

0 bình luận về “nhập vào 1 xâu. đưa ra số từ của xâu (xâu nhập là xâu chuẩn hóa)”

1. var str1: string; st: byte;
   begin
       write(‘Nhap chuoi can tim: ‘);
       readln(str1);
       
       st:=1;
       while(pos(‘ ‘,str1)<>0) do
       begin
           inc(st);
           delete(str1,1,pos(‘ ‘,str1));
       end;
       write(‘So tu la: ‘,st);
       readln
   end.

   Bình luận

2. Var s: string;

       d, i: byte;

   Begin

       d:=1;

       Write(‘nhap xau: ‘); readln(s);

       For i:=1 to length(s) do if s[i]=’ ‘

           Then d:=d+1;

       Write(‘trong xau co ‘, d, ‘ tu’);

       Readln

   End.

   {GM Kiet}

   Bình luận