|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Нужна маленькая прога
Взяв целое число(например, 3 546 245) нужно разбить его на круглые числа(3 000 000, 500 000, 40 000, 6 000, 200, 40, 5) и подставить вместо каждого числа свое число (3 000 000 = 9, 500 000 = 1 и тд.)Затем суммировать подставленные числа и получить итог.
Заранее спасибо. |
#2
|
||||
|
||||
По первой части задачи так:
Преобразовываешь число в строку и режешь посимвольно, примерный код: Код:
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; |