[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]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12

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;

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