Войти Регистрация Спроси ai-bota

Информатика. програмирование. паскаль. с клавиатуры вводится строка, состоящаятиз слов и чисел, разделенных одним пробелом. написать функцию, подсчитыапющую сумму чисел во введённой строке.

Ответ:

sheidpavla

08.10.2020 18:16

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

0,0(0 оценок)

Популярные вопросы: Информатика

mkashkan

05.08.2022 01:30

Составить программу вычесления суммысоставить программу вычесления суммы ряда s=4 в 1 степени+4 в 3 степени + 4 в 5 +4 в 15 степени...

hamster1324

05.08.2022 01:30

Составить в excel: проводится набор в баскетбольную секцию,пришло 10 человек.принимают от роста 165см.сколько человек взяли в команду? считать рост от 140 до 190....

Тзх

12.06.2020 05:53

Почтовый ящик mama.5 находится на сервере dom.ru. в таблице фрагменты адреса электронной почты закодированы цифрами от 1 до 6. запишите последовательность цифр, кодирующую...

123Gopo

12.06.2020 05:53

1. доступ к файлу ftp.doc, находящемуся на сервере bit.ru, осуществляется по протоколу http. фрагменты адреса файла закодированы буквами от а до ж. запишите последовательность...

369Камила1

21.06.2020 03:57

, online mekten . Сравни две таблицы . Какие изменения были внесены после форматирования в таблице 2 ? Верных ответов : 2 применили к заголовкам заливку цвета выделили...

Anna1855

21.08.2022 20:38

1.як утворюється озера улоговини? 2.Як утворюються болота ...

azko

01.06.2020 16:18

Выполните действия 67112354895 г= т? Ц? Кг? Г? 4006000604 г =т? Ц? Кг? Г? 5896127458 г=т? Ц? Кг? Г? 5162849137 г=т? Ц? Кг? Г? 540030090 г =т? Ц? Кг? Г? 700303015 г=т?...

oxpoluhina2017

26.03.2023 00:43

Определите тему текста ! ...

Назар233

19.12.2020 05:22

Таблицею «Досягнення культури українських земель другої половини XIV — XV ст.».Основні досягненняГалузь культури ...

sashaageev04

19.12.2020 05:22

2-тапсырма Берілген мәтіндегі қате жащылған сөздерді анықтап сөздікті пайдалана отырып түзетіп көшіріп жазындар...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку