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
2 câu trả lời
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.
