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

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

Ответ:

anel19999

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 оценок)

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

Margaryaanmag

03.04.2023 07:19

ИНФОРМАТИКА Знайти всі числа менші N, які є квадратами натуральних чисел. Формат вхідних даних У стандартному вхідному потоці дано ціле додатне N (N = 1000000). Формат вихідних...

demoplus1

30.01.2022 16:23

Сколько бит памяти компьютера займёт чёрно-белое изображение размером 10х10 пикселей?...

анора10

09.02.2023 00:39

Чарльз бэббижд- аналитическая машина. скажите дату ))...

saschaalexandrova

06.06.2021 08:32

Спо информатике через pascal: 1. с клавиатуры вводятся целые числа, признак окончания ввода - четное число, вычислить количество двузначных, сумму - последняя цифра больше...

ilia9999999999

06.06.2021 08:32

Вгруппе 30 чел. за контрольную по . получено 2 пятёрки, 13 четверок, 14 троек, и 1 двойка. какое кол-во информации в сообщении о том, что иван получил четверку...

ruslankasaev

06.06.2021 08:32

1)выполните сложение и вычитание над двоичными числами 11101001 и 10011101 2) выполните сложение : 306(в восьмой) + 70f = ? ( в шестнадцатой) заранее !...

korolev98

06.06.2021 08:32

1)переведите число 154(в восьмой) по схеме n8-n2-n16 2)переведите число 1d5(в шестнадцатой) по схеме n16-n2-n8 заранее...

лошарикуни

06.06.2021 08:32

4. отметьте имя файла, которое не может существовать в операционной системе windows. a) setpixel.pas b) amc_promote.exe c) ru_utf8. mid d) mc/nc.doc...

неумно

06.06.2021 08:32

Дан массив a из n целых чисел. требуется сначала вывести элементы, стоящие на четных местах, затем — на нечетных. формат входных данных на первой строке входного файла записано...

розасит2006

06.06.2021 08:32

Дан массив a из n целых чисел. требуется сначала вывести все четные элементы, затем — нечетные. формат входных данных на первой строке входного файла записано натуральное...

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

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