Решение основано на кодовой таблице ASCII (Windows-1251)
Если код символа от 48 до 57 и четный, то его выводим.
Читаем тут:
<span>https://goo.gl/kLRJrE</span>
http://delphi.scps.ru/string/str5122.htm
http://delphi.scps.ru/math/math5604.htm
Задание 1
var
s:string;
digit:set of '0'..'9';
i,imax:integer;
begin
Write('Введите строку: '); Readln(s);
imax:=Length(s)-1;
i:=imax;
digit:=['0'..'9'];
while i>=2 do begin
if (not (s[i] in digit)) and (s[i+1] in digit) and (s[i-1] in digit)
then Delete(s,i,1);
Dec(i)
end;
Writeln('Результат: ',s)
end.
Тестовое решение
Введите строку: 12*3aa456*78aa
Результат: 123aa45678aa
<span>Информация<span> для человека - это содержание сигналов (сообщения), воспринимаемых человеком непосредственно или с помощью специальных устройств, расширяющее его знания об окружающем мире и протекающих в нём процессах.</span></span><span>Сигналы могут быть непрерывными или дискретными.</span><span>Непрерывный сигнал принимает бесконечное множество значений из некоторого диапазона. Между значениями, которые он принимает, нет разрывов.</span><span><span>Дискретный сигнал </span><span>принимает конечное число значений. Все значения дискретного сигнала можно пронумеровать целыми числами. но я не уверен что правильно
</span></span>