Написать подпрограмму, которая все слова вида "<натуральное число>+<натуральное число>" заменит на результат операции. Например: строка " undg 45+2 jf 100+1" должна быть преобразована в строку " undg 47 jf 101" Использовать заголовок: procedure Summ(var s: string);
pascalABC
Ответы
Ответ дал:
0
// 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.
Приложения:
![](https://st.uroker.com/files/48a/48a18f64e1a265a73d8030665effc189.jpg)
Ответ дал:
0
помогите пж
Вас заинтересует
1 год назад
1 год назад
1 год назад
7 лет назад
7 лет назад