Nhập vào 1 xâu . Đửa ra màn hình số lượng kí tự dài nhất của một từ trong xâu

0 bình luận về “Nhập vào 1 xâu . Đửa ra màn hình số lượng kí tự dài nhất của một từ trong xâu”

1. program chuongtrinh;
   uses crt;
   var 
       s : string;
       i, cnt, ans : integer;
   begin
       clrscr;
       readln(s);
       for i := 1 to length(s) do
       begin
           if (s[i] = ‘ ‘) then
           begin
               if (ans < cnt) then
               begin
                   ans := cnt;
                   cnt := 0;
               end;
           end
           else cnt := cnt + 1;
       end;
       if (ans < cnt) then ans := cnt;
       write(ans);
   end.

   Bình luận