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

Чтобы удалить все знаки препинания из заданной строки на языке Паскаль, можно использовать следующий простой подход. В этом примере мы будем считывать строку, проверять каждый символ и добавлять его в новую строку, только если он не является знаком препинания.

Вот пример кода на Паскале:

program RemovePunctuation;

var
  inputStr, outputStr: string;
  i: integer;

begin
  { Инициализация строк }
  inputStr := 'Привет, мир! Как дела?';  { Ваша исходная строка }
  outputStr := '';

  { Обход каждого символа в строке }
  for i := 1 to Length(inputStr) do
  begin
    { Проверка, является ли символ буквой или пробелом }
    if (inputStr[i] in ['А'..'Я', 'а'..'я', '0'..'9', ' ']) then
      outputStr := outputStr + inputStr[i];
  end;

  { Вывод результата }
  WriteLn('Строка без знаков препинания: ', outputStr);
end.

В этом коде:

• Мы инициализируем исходную строку inputStr. Вы можете заменить её на любую другую строку.
• Перебираем каждый символ строки и проверяем, является ли он буквой (русские буквы и цифры) или пробелом.
• Если символ подходит под эти условия, он добавляется в новую строку outputStr.
• В конце выводим результат на экран.

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