В заданном тексте заменить все встречающиеся пары из одинаковых цифр, словом...

Question

В заданном тексте заменить все встречающиеся пары из одинаковых цифр, словом ‘две’.Введите текст, в котором нет цифр. Какой ответ выдаст программа? Внесите изменения в программу так, чтобы на этот случай выдавалось сообщение ‘в тексте нет цифр’

Answer 1

Var t: string;
  f: boolean;
  i: integer;
begin
  t := '11рыба 122344 р22б2';
  // readln(t);
  i := Length(t)-1;
  for i := Length(t)-1 downto 1 do
    if (t[i] in ['0'..'9']) and (t[i] = t[i+1]) then begin
      Delete(t, i, 2);
      Insert('две', t, i);
      f := true;
    end;
    
  if f then writeln(t)
  else writeln('нет цифр');
end.