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

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

↓

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

ilyavladimirov1

06.10.2020 22:50

Ребят, подскажите . Почему слетает установленный тайм-аут экрана на сяоми ? Я ставлю на 2 минуты , но через время (мб 10 часов ) возращается к 15 сек....

asiraz03

18.04.2023 13:49

If a [i]% 2 == 0: какой элемент создается, если установлено условие? Напишите ответ словами....

sakhnovavaleri1

21.04.2023 08:11

На березі річки біля човна стоять 2 дорослих і 2 дітей.човен витримую або 1 дорослого або 2 дітей.як їм усім переправитись на протилежний берег...

Egoraptor

31.03.2023 22:28

20 Б Напишите программу, которая вычисляет куб наибольшего из трех чисел....

jykito28

25.10.2020 04:43

написать программу для робота в которой он закрашивает указанные клетки. длина стен неизвестна. расстояние от робота до стены произвольное....

AlexaKim04

02.06.2023 06:14

Каковы условия удаления отрицательных элементов списка? Напишите ответ...

lilia25021

29.09.2022 10:09

Напишіть програму, яка зчитує три будь- яких слова по черзі, а потім виводить їх у зворотній послідовності, кожну на окремому рядку. На вхід програмі подається рядок тексту...

ilviragaraeva2

28.01.2022 16:31

Реализован некоторый алгоритм в виде блок схемы если изначально a)А=0 B=0 б)А=0 В=5 в) А=10 В=20 г) А=10 В=10...

Кириджа114

19.09.2022 20:20

По схемам восстановить логическое выражение ...

sasaaaru

24.12.2020 08:10

Чертёжнику был дан для исполнения следующий алгоритм: Повтори 5 paзКоманда1 Сместиться на (2, 2) Сместиться на (0, −1) КонецСместиться на (5, −5)После выполнения этого алгоритма...

Ответ:

КореневаАня

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 Оформи подписку