Написать подпрограмму, которая все слова вида "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
Отв. дан
Нина
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Савелий
Подскажите как пожалуйста написать программы по этим двум заданиям ...
2018-09-23 00:00:00
Shalilv
Написать 10 трехзначных чисел, перевести их в двоичную систему. ...
2018-09-23 00:00:00
Клавдий
Масса отца в 6 раз больше массы его сына.Найти ...
2018-09-23 00:00:00
Альбина
Определить скорость, ускорение и координату x точки в момент ...
2018-09-23 00:00:00