файлы, посмотрите пожалуста Опции

[Anton12]

Процедура удвоение цифр..., А надо сделать чтоб удваивались ЧИСЛА, т.е. 45 у меня будет 810 а надо что было 90....помогите ...

[Anton12]

Задание: Описать процедуру:double ( t ), удваивающую в строке t каждую цифру;
Новое задание: Описать процедуру:double ( t ), удваивающую в строке t числа;

[Lapp]

Описать процедуру:double ( t ), удваивающую в строке t числа;

Вот как-то так попробуй:

  i:=0;
  l:=0;
  repeat
    Inc(i);
    if (i<=Length(t)) and (t[i] in ['0'..'9']) then begin
      if l=0 then j:=i;
      Inc(l)
    end
    else if l>0 then begin
      Val(Copy(t,j,l),n,e);
      Str(2*n,s);
      Delete(t,j,l);
      Insert(s,t,j);
      l:=0;
      i:=j+Length(s)
    end
  until i>Length(t);