Тема: Первесети строку в цифры
Показать сообщение отдельно
  #2  
Старый 04.03.2009, 21:26
lmikle lmikle вне форума
Модератор
  
Регистрация: 17.04.2008
Сообщения: 8,035
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию
Элементарно, Ватсон.
Идем с конца строки посимвольно и складываем ([код символа] - [код '1']) * [номер символа с конца строки].
Ответить с цитированием