// PascalABC.NET 3.4.2, сборка 1790 от 15.09.2018
// Внимание! Если программа не работает, обновите версию!
{$reference System.Data.dll}
uses System.Data;
procedure Summ(var s: string);
begin
var o := new DataTable;
s := s.RegexReplace('\d+\+\d+', m -> o.Compute(m.Value, '').ToString)
end;
var s := ReadlnString('Введите строку:');
Summ(s);
s.Println
end.
// PascalABC.NET 3.4.2, сборка 1790 от 15.09.2018
// Внимание! Если программа не работает, обновите версию!
{$reference System.Data.dll}
uses System.Data;
procedure Summ(var s: string);
begin
var o := new DataTable;
s := s.RegexReplace('\d+\+\d+', m -> o.Compute(m.Value, '').ToString)
end;
begin
var s := ReadlnString('Введите строку:');
Summ(s);
s.Println
end.