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

Конечно! Вот правильный ответ на языке Паскаль:

pascal

program FindLongestWord;

uses

  SysUtils;



function LongestWordAndLength(input: string): string;

var

  words: TStringDynArray;

  i: integer;

  longestWord: string;

  maxLength: integer;

begin

  // Разделение строки на слова с помощью пробелов в качестве разделителя

  words := SplitString(input, " ");



  // Инициализация начального значения для самого длинного слова и его длины

  longestWord := "";

  maxLength := 0;



  // Перебор всех слов в строке

  for i := 0 to Length(words) - 1 do

  begin

    // Проверка наличия пробелов перед/после слова и его длины

    if Trim(words[i]) <> "" then

    begin

      // Если текущее слово длиннее предыдущего, обновляем значения

      if Length(words[i]) > maxLength then

      begin

        longestWord := words[i];

        maxLength := Length(longestWord);

      end;

    end;

  end;



  // Формирование итоговой строки с самым длинным словом и его длиной

  Result := "Самое длинное слово: " + longestWord + ", его длина " + IntToStr(maxLength);

end;



var

  inputString: string;

begin

  // Ввод строки с клавиатуры

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

  ReadLn(inputString);



  // Вызов функции для определения самого длинного слова и его длины

  WriteLn(LongestWordAndLength(inputString));

end.

Обратите внимание, что в коде используется функция `SplitString`, которая разбивает строку на массив слов с помощью пробела в качестве разделителя. Эта функция является вспомогательной и не является стандартной для языка Паскаль. Если вы планируете использовать этот код в своей среде разработки, убедитесь, что она доступна.

После ввода строки с клавиатуры, программа найдет самое длинное слово в ней и его длину. Результат будет выведен на экран. Например:

Введите строку: Вася пошел гулять

Самое длинное слово: гулять, его длина 6

Надеюсь, это поможет вам понять и решить задачу! Если у вас есть еще вопросы, не стесняйтесь задавать.