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

Чтобы удалить все восклицательные знаки из строки на языке Паскаль, можно использовать следующий код:

program RemoveExclamationMarks;
var
  inputStr, outputStr: string;
  i: integer;
begin
  writeln('Введите строку:');
  readln(inputStr);
  
  outputStr := ''; // Инициализируем выходную строку

  // Проходим по каждому символу входной строки
  for i := 1 to length(inputStr) do
  begin
    // Если символ не восклицательный знак, добавляем его к выходной строке
    if inputStr[i] <> '!' then
    begin
      outputStr := outputStr + inputStr[i];
    end;
  end;

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

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

1. Считывает строку от пользователя.
2. Создаёт новую строку outputStr, в которую будут добавляться все символы, кроме восклицательных знаков.
3. Использует цикл для перебора всех символов исходной строки.
4. Проверяет каждый символ: если он не является восклицательным знаком, добавляет его к outputStr.
5. В конце выводит преобразованную строку без восклицательных знаков.

Надеюсь, этот пример будет для вас полезным, и вы сможете легко адаптировать и использовать его!