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

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

mstella2003

12.12.2020 23:20

Робота викунується в Python Задача 1. а) Створити вікно root. Задати характеристики вікна: розмір 400х400; колір світло зелений; заголовок вікна «Вікно tkinter».б)...

Caflen

26.11.2020 05:06

Известна скорость ветра в м/с. Составить программу, выдающую ответ вида: «скорость ветра … км/ч» Информатика 9 класс...

залипушечка

06.08.2021 00:47

Сканируется цветное изображение размером 2,54×2,54 дюйм. Разрешающая сканера — 1200×1200 dpi, глубина цвета — 32 бита. Какой информационный объём будет иметь полученный...

Adelina174

23.10.2020 11:08

Имеется N аудиокассет. Про каждую известно: количество (до 20) записанных на ней песен или композиций, название и продолжительность (в минутах) каждого произведения,...

Artëm1646

04.04.2020 01:10

6. Алмас ведет дневник погоды. В понедельник была зафиксированы температура -5° С, во вторник -15 С, в среду температура воздуха днем составила -7°C. Составьте таблицу...

elenka421

10.12.2020 06:49

Оцените особенности и возможности двух графических редакторов Paint3D и Paint....

AlicaMinenkova

28.05.2022 08:16

Программа на питон для нахождения S=50*a+(k-50)*1,2*a a= 1 , 1 , 2 k= 49 , 51 , 100...

anay3

16.05.2020 21:47

Вычислить значения 36 элементов одномерного целочисленного массива C в интервале (-6;10) с использованием генератора случайных чисел. Потом нужно упорядочить каждые...

Александра123451111

20.04.2020 14:01

Сообщение про правовой статус программ для компьютера...

zarinaa2004

01.01.2022 19:18

14. заполнить таблицу формулами нахождения среднего значения СРЗНАЧ и суммы СУММ...

Ответ:

08987654321

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

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

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