Question

Дана строка из нескольких слов, разделённых одним пробелом. В конце строки точка. Вывести самое длинное слово в строке. Помогите пожалуйста, Pascal ABC.

Answer 1

Самое длинное слово в мире-метоксихлордиэламинометибутиламиноакриаин-это пищевые соединения,это вообще а если "Pascal,ABC это слова в строке то самое длинное Pascal

Answer 2

Для решения этой задачи в Pascal ABC можно использовать следующий код:

program LongestWord;
var
  str, word, longestWord: string;
  i: integer;
begin
  longestWord := '';
  
  write('Введите строку: ');
  readln(str);
  
  str := str + ' '; // добавляем пробел в конце строки для обработки последнего слова
  
  for i := 1 to length(str) do
  begin
    if str[i] <> ' ' then
      word := word + str[i]
    else
    begin
      if length(word) > length(longestWord) then
        longestWord := word;
      word := '';
    end;
  end;
  
  writeln('Самое длинное слово в строке: ', longestWord);
end.

Этот код сначала запрашивает у пользователя ввести строку, затем он обрабатывает строку и находит самое длинное слово в ней. Результат выводится на экран.