Question

ПОМОГИТЕЕ!!! Дано предложение (вводится с клавиатуры) , в котором некоторые символы являются цифрами. Найдите сумму этих цифр. Подсказка: порядковые номера символов 0-9 в таблице ACSII лежат в интервале 48-57

Answer 1

// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('Введите строку: ');
  Writeln(s.MatchValues('d').Select(c->c.ToInteger).Sum)
end.

Пример
Введите строку:  erer-5.456*3453gsd(4fgfh.==ertfer)re34se
46

Answer 2

А в Lazarus это как будет?

Answer 3

В Лазарусе это будет длинно и коряво. Как конкретно - не могу сказать - у меня его нет, потому что не пользуюсь этим чудищем. Но если Вам надо было в Лазарус - это следовало указать в вопросе.