определить нечётные числа в строке и удалить всё что находиться между ними. Язык Паскаль.

[Нерион]

"abc10def123aaa15qwe7rty2521xxx 552d dd"

abc10def123152521xxx552dd d
нечётные: 123 15 2521
Надо из исходной строки удалить всё что находиться между нечётными числами, а в этом примере нечётные это 123, 15 и 2521 и вывести исправленную строку и нечётные числа как показано сверху.

[Аватар]

Еще раз - почему именно 123, а не 1, 12315 , 1231525 или 123152521? Они тоже нечетные и ни чем не хуже 123. Или в проге константа - 123 нечетная, остальное не анализировать?]
По первой встреченной нечетной напрашивается 1, 23, 1, 5, 25, 21. И дальше - 5 и 5. Почему 123, 15 и 2521?

[Нерион]

Ладно другой пример. Скажем вводим строку +5a%bc9 и в итоге должно остаться только +59 так как мы удаляем a%bc и ответ таков: нечётные числа 5;9 полученная строка +59

[Аватар]

Не надо ладно. Надо алгоритм. Твое ладно означает, что цифра и число - синонимы. А это не так

[Нерион]

Вы сможете написать программу по нечётным цифрам?
Исходная строка:+5a%bc9
Полученная строка:+59
нечётные цифры: 5,9
Что-бы программа выполняла эти действия(находить нечётные цифры и удалять в строке элементы которые находятся между ними), а для чисел я сам додумаю.

[Аватар]

Для этой строки могу, и очень просто - результат равен '+59'. Подставь в любой язык. Для других не могу - нет корректной задачи

[Нерион]

Мне нужна прога на паскале.

[Serge_Bliznykov]

если речь идёт про ЦИФРЫ. то задача решается элементарно:

function DeleteBetweenOddDigits(sInput:string):string;
var s:string;
 i,i1 : integer;
begin
 s := sInput;
 i := Length(s);
 i1 := 0;
 while i>0 do begin
  if s[i] in ['0'..'9'] then
    if odd( ord(s[i]) - ord('0')) then begin
      if i1=0 then i1:=i
      else begin
        Delete(s,i+1, i1-i-1); i1:=i
      end
    end;
  Dec(i)
 end;
 DeleteBetweenOddDigits := s
end;

//s:='abc10def123aaa15qwe7rty2521xxx552ddd'
begin
  WriteLn(DeleteBetweenOddDigits('+5a%bc9'));
end.

если же нужно действительно числа в строке искать, тогда код нужно усложнять!

[Arigato]

if odd( ord(s[i]) - ord('0')) then begin

Нечетные цифры имеют нечетный ASCII-коды, так что достаточно проверить:

if odd(ord(s[i])) then begin

[Serge_Bliznykov]

Сообщение от Arigato

Нечетные цифры имеют нечетный ASCII-коды, так что достаточно проверить

Угу. Знаю.
Можно и так. Это не принципиально и не сильно скажется на эффективности кода.