Дана строка s вводимая с клавиатуры в языке Паскаль. Напишите программу, которая удаляет из строки все тире и пробелы

Дана строка s вводимая с клавиатуры в языке Паскаль. Напишите программу, которая удаляет из строки все тире и пробелы.
Скоростная_Бабочка_7883

Скоростная_Бабочка_7883

Конечно! Для решения данной задачи мы можем использовать цикл, чтобы пройтись по каждому символу в строке и проверить, является ли он тире или пробелом. Если символ является тире или пробелом, мы его просто пропускаем, иначе добавляем его к новой строке без тире и пробелов. Вот программный код на языке Паскаль:

pascal
program RemoveHyphensAndSpaces;
var
s, newString: string;
i: integer;
begin
// Вводим строку с клавиатуры
write("Введите строку: ");
readln(s);

// Проходимся по каждому символу в строке
for i := 1 to length(s) do
begin
// Проверяем, является ли символ тире или пробелом
if (s[i] <> "-") and (s[i] <> " ") then
// Добавляем символ к новой строке без тире и пробелов
newString := newString + s[i];
end;

// Выводим полученную строку без тире и пробелов
writeln("Строка без тире и пробелов: ", newString);
end.


В этой программе мы сначала объявляем переменные `s` и `newString`, где `s` является входной строкой, а `newString` будет содержать новую строку без тире и пробелов. Затем мы применяем цикл `for`, чтобы пройтись по каждому символу в строке `s`. Внутри цикла мы проверяем, является ли текущий символ тире или пробелом, и только в случае, если символ не является тире или пробелом, мы добавляем его к переменной `newString` с помощью оператора `+`.

Наконец, мы выводим полученную строку `newString`, которая будет содержать исходную строку `s`, но без тире и пробелов.
Знаешь ответ?
Задать вопрос
Привет!
hello