Какая программа нужна для удаления всех знаков тире и пробелов из введенной строки s на Pascal из клавиатуры?

Забытый_Замок

17

Для удаления всех знаков тире и пробелов из строки s на языке Pascal можно воспользоваться простым алгоритмом. Вот шаги, которые нужно выполнить:

1. Объявите переменные:
- `s` - строка, которую вы хотите очистить от знаков тире и пробелов.
- `i` - целочисленная переменная, которая будет использоваться для итерации по строке.

2. Инициализируйте переменные:
- Присвойте переменной `s` значение строки, которую пользователь введет с клавиатуры.

3. Создайте цикл для обработки всех символов в строке:
- Для `i` от 1 до длины строки `s` выполните следующие действия в каждой итерации:

4. Проверьте символ на условие:
- Если символ равен тире (`-`) или пробелу (` `), то удалите этот символ из строки `s` с помощью функции `Delete` в Pascal.

5. Выведите очищенную строку:
- После завершения цикла выведите на экран или сохраните в другую переменную очищенную строку `s`.

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

pascal

var

  s: string;

  i: integer;

begin

  Write("Введите строку s: ");

  ReadLn(s);



  for i := Length(s) downto 1 do

  begin

    if (s[i] = "-") or (s[i] = " ") then

      Delete(s, i, 1);

  end;



  WriteLn("Очищенная строка s: ", s);

end.

Этот код позволяет удалить все знаки тире и пробелы из введенной строки `s` и вывести результат на экран. Обратите внимание, что функция `Delete` используется для удаления символов из строки и принимает три параметра: строку, начальную позицию и количество символов для удаления.