Question

Напишите программу, которая выводит последнее слово переданной её символьной строки. Слово – это последовательность непробельных символов, ограниченная пробелами или концами строки. Входные данные Входная строка содержит произвольную последовательность символов. Выходные данные Программа должна вывести последнее слово этой строки. Примеры входные данные Abra babra cadabra выходные данные cadabra

Answer 1

Program z1;  Var i,b,j,n:integer; s,space,h:string;      a: array [1..1000] of string;Begin  write('Введите текст - ');  readln(s);  b:=length(s);  space:=' ';  i:=1;  n:=0;  j:=1;  while i<=b do  begin    h:='';    while s[i]<>space do    begin      h:=h+s[i];      i:=i+1;    end;    a[j]:=h;    j:=j+1;    i:=i+1;    n:=n+1;  end;      write(a[n],' ');  End. Только в конце предложения ставь тоже пробел!

Answer 2

Вот пример программы на языке Pascal, которая выводит последнее слово переданной ей символьной строки:

program LastWord;
var
  inputString: string;
  lastWord: string;
  i: integer;
begin
  // Ввод строки
  write('Введите строку: ');
  readln(inputString);

// Инициализация последнего слова
  lastWord := '';

// Поиск последнего слова
  for i := length(inputString) downto 1 do
  begin
    if inputString[i] <> ' ' then
      lastWord := inputString[i] + lastWord
    else if lastWord <> '' then
      break;
  end;

// Вывод последнего слова
  writeln('Последнее слово: ', lastWord);
end.

Пример работы программы: ``` Введите строку: Abra babra cadabra Последнее слово: cadabra ```

Примечание: В данной программе предполагается, что входная строка не содержит лишних пробелов в начале или конце строки. Если входная строка может содержать лишние пробелы, то перед поиском последнего слова можно использовать функцию `Trim` для удаления лишних пробелов.