Question

Нужно написать программу, которая удаляет из строки все цифры на паскале.

Answer 1

// PascalABC.NET 3.2, сборка 1488 от 21.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('Вводите:').MatchValues('[^\d]').JoinIntoString('');
  Write('Получим: '); s.Println
end.

Пример
Вводите: Пусть 2.5*x+sin(x/2)=2.054. Отсюда найдем х и вычислим x^(2/3).
Получим: Пусть .*x+sin(x/)=.. Отсюда найдем х и вычислим x^(/).

Answer 2

Ответ:::::::::::::::::::::::

Answer 3

Для удаления всех цифр из строки на языке Pascal можно использовать следующую программу:

program RemoveDigits;
var
  inputString, outputString: string;
  i: integer;
begin
  writeln('Введите строку:');
  readln(inputString);
  
  outputString := '';
  for i := 1 to length(inputString) do
  begin
    if not (inputString[i] in ['0'..'9']) then
      outputString := outputString + inputString[i];
  end;
  
  writeln('Результат:');
  writeln(outputString);
end.

Эта программа запрашивает у пользователя ввод строки и затем проходит по каждому символу в строке. Если символ не является цифрой (то есть не находится в диапазоне от '0' до '9'), он добавляется в выходную строку. В конце программа выводит полученную строку без цифр.

Например, если пользователь вводит строку "Hello123World", программа удалит все цифры и выведет "HelloWorld".

Примечание: Пожалуйста, учтите, что в данном случае программа не удаляет пробелы или другие символы, кроме цифр. Если вам нужно удалить и другие символы, вы можете изменить условие внутри цикла `if not (inputString[i] in ['0'..'9'])` на соответствующее условие для удаления нужных символов.

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