[Springer]

Взяв целое число(например, 3 546 245) нужно разбить его на круглые числа(3 000 000, 500 000, 40 000, 6 000, 200, 40, 5) и подставить вместо каждого числа свое число (3 000 000 = 9, 500 000 = 1 и тд.)Затем суммировать подставленные числа и получить итог.
Заранее спасибо.

[Aristarh Dark]

По первой части задачи так:
Преобразовываешь число в строку и режешь посимвольно, примерный код:

Код:

var
  i,j,m:integer;
  s:string;
begin
  i:=3546245;
  s:=IntToStr(i);
  for j:=1 to Length(s) do
    begin
      m:=StrToInt(s[j]+StringOfChar('0',Length(s)-j));
      ShowMessage(IntToStr(m));
    end;
end;

вторую часть вопроса я не понял