Разделить каждую цифру числа на его порядковый номер

unsigned int c = 689;
String str = c;
 
for( unsigned int i=1; i<=str.Length(); i++ )
  str[i] = *( IntToStr( StrToInt( str[i] )/i ).c_str() );
 
c = StrToInt( str );
ShowMessage( c );

str[i] =                                    // 6) Получаем обратно char
        *(                                  // 5) Разыменовываем
           IntToStr(                        // 3) Преобразуем обратно встроку, в тип String
                     StrToInt( str[i] )     // 1) Приводим один char символ к типу int
                                       / i  // 2) Целочисленно делим его на i
                    ).c_str()               // 4) Берем указатель на единственный символ строки
          );

#include <cmath>
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    int dig= -6892;
 
    for(int i=1; i<5; ++i)
    {
        int c= (std::abs(dig)%(int)std::pow(10,i)) / std::pow(10,i-1);
        Memo1->Lines->Add(String(i)+" "+String(c));
    }
}
//---------------------------------------------------------------------------

int c = 947;
AnsiString e = IntToStr(c);
for(float i = 1;i <= e.Length(); i++)
Memo1->Lines->Add(StrToInt(e[i])/i )  ;

AnsiString e = IntToStr(abs(c));

#include <cmath>
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    int dig= -6892;
 
    for(int i=1; i<5; ++i)
    {
        int c= (std::abs(dig)%(int)std::pow(10,i)) / std::pow(10,i-1);
        Memo1->Lines->Add(String( c/double(i) ));
    }
}
//---------------------------------------------------------------------------