информатика. програмирование. паскаль.
с клавиатуры вводится строка, состоящаятиз слов и чисел, разделенных одним пробелом. написать функцию, подсчитыапющую сумму чисел во введённой строке.
Ответы
Ответ дал:
0
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
function SumStr(s:string):=
s.MatchValues('(^|s)d+(s|$)').Select(c->c.ToInteger).Sum;
begin
SumStr(ReadlnString('Введите строку:')).Println
end.
Пример
Введите строку: Cегодня 15 мая 2015 года, 4 часа 10 минут.
2044
Внимание! Если программа не работает, обновите версию!
function SumStr(s:string):=
s.MatchValues('(^|s)d+(s|$)').Select(c->c.ToInteger).Sum;
begin
SumStr(ReadlnString('Введите строку:')).Println
end.
Пример
Введите строку: Cегодня 15 мая 2015 года, 4 часа 10 минут.
2044
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад