ПОМОГИТЕЕ!!! Дано предложение (вводится с клавиатуры) , в котором некоторые символы...

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

Comments

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