Из задаваемой строки удалить последний знак препинания. Написать на паскале без модуля

Чтобы удалить последний знак препинания из строки на языке Pascal, можно воспользоваться простым алгоритмом, который проверяет, является ли последний символ строкой знаком препинания, и удаляет его, если это так. Ниже приведен пример кода, который выполняет эту задачу без использования модулей:

program RemoveLastPunctuation;

uses crt;

var
  inputString: string;
  lastChar: char;

begin
  clrscr;
  
  // Ввод строки
  writeln('Введите строку:');
  readln(inputString);
  
  // Проверяем, если строка не пустая
  if Length(inputString) > 0 then
  begin
    lastChar := inputString[Length(inputString)];
    
    // Проверяем, является ли последний символ знаком препинания
    if (lastChar = '.') or (lastChar = ',') or (lastChar = '!') or 
       (lastChar = '?') or (lastChar = ';') or (lastChar = ':') then
    begin
      // Удаляем последний знак препинания
      inputString := Copy(inputString, 1, Length(inputString) - 1);
    end;
  end;

  // Выводим результат
  writeln('Результат: ', inputString);
  readln;
end.

Этот код выполняет следующие шаги:

1. Запрашивает у пользователя ввод строки.
2. Проверяет, пустая ли строка.
3. Учитывает последний символ и проверяет, является ли он знаком препинания.
4. Если это так, удаляет его.
5. Выводит изменённую строку.

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