Question

В заданной строке удалить последний символ " "(пробел), который найдется в строке. На Делфи (Паскаль)

Answer 1

Программа:

Pascal:

var

 st: string;

 i, n: integer;

begin

 writeln('st = ');  readln(st);

 for i := 1 to length(st) do

   if st[i] = ' ' then n := i;

 delete(st, n, 1);

 writeln(st);

end.

Answer 2

В Delphi (Pascal) можно удалить последний символ пробела из строки следующим образом:

program RemoveLastSpace;

var
  inputString, modifiedString: string;
  lastSpaceIndex: Integer;

begin
  // Ввод строки с клавиатуры
  Write('Введите строку: ');
  ReadLn(inputString);

// Находим индекс последнего пробела в строке
  lastSpaceIndex := Length(inputString);
  while (lastSpaceIndex > 0) and (inputString[lastSpaceIndex] <> ' ') do
    Dec(lastSpaceIndex);

// Если найден пробел, то удаляем его из строки
  if (lastSpaceIndex > 0) and (inputString[lastSpaceIndex] = ' ') then
  begin
    modifiedString := Copy(inputString, 1, lastSpaceIndex - 1);
    // Выводим модифицированную строку
    WriteLn('Модифицированная строка: ', modifiedString);
  end
  else
  begin
    // Если пробел не найден, выводим исходную строку
    WriteLn('Пробел не найден в строке или строка пуста: ', inputString);
  end;

end.

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