Введите символьную строку с клавиатуры и определите самое длинное слово в ней, а также его длину. Словом можно считать

Строки:
Обработка строк - это важный аспект программирования. Ваша задача состоит в том, чтобы ввести символьную строку с клавиатуры и определить самое длинное слово в ней, а также его длину.

Дополнительный материал:
Введите строку: "Вася пошел гулять"
Самое длинное слово: "гулять", его длина: 6

Код на языке Паскаль:

program LongestWord;

uses

  sysutils;



function GetLongestWord(s: string): string;

var

  words: TStringList;

  i: Integer;

begin

  words := TStringList.Create;

  words.Delimiter := " ";

  words.DelimitedText := s;

  

  Result := "";

  for i := 0 to words.Count - 1 do

  begin

    if Length(words[i]) > Length(Result) then

      Result := words[i];

  end;

  

  words.Free;

end;



var

  inputStr: string;

  longestWord: string;

begin

  Write("Введите строку: ");

  ReadLn(inputStr);



  longestWord := GetLongestWord(Trim(inputStr));

  WriteLn("Самое длинное слово: "", longestWord, "", его длина: ", Length(longestWord));

end.

Совет:
Чтобы решить эту задачу, вы можете использовать функцию `GetLongestWord`, которая принимает входную строку и возвращает самое длинное слово в ней. Чтобы разделить строку на отдельные слова, используйте `TStringList` и задайте разделитель как пробел. Затем пройдитесь по всем словам и проверьте их длину. Обновляйте результат, если новое слово длиннее предыдущего самого длинного слова.

Дополнительное задание:
Введите строку: "Я люблю программирование"
Какое самое длинное слово в этой строке и какова его длина?