Регистрация Вход
Информатика 5 - 9 классы Agari
Решено

Написать подпрограмму, которая все слова вида "lt;натуральное числоgt;+lt;натуральное числоgt;" заменит на результат операции. Например: строка " undg 45+2 jf 100+1" должна быть преобразована в строку " undg 47 jf 101" Использовать заголовок: procedure Summ(var s: string); pascalABC

84
ОТВЕТЫ

// 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 -gt; o.Compute(m.Value, ).ToString)

end;


begin

 var s := ReadlnString(Введите строку:);

 Summ(s);

 s.Println

end.

24
Отв. дан
Для написания вопросов и ответов необходимо зарегистрироваться на сайте