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.
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.
