Дано предложение (вводится с клавиатуры) , в котором некоторые символы являются цифрами. найдите сумму этих цифр. подсказка: порядковые номера символов 0-9 в таблице acsii лежат в интервале 48-57

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

↓

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

katya1172

19.11.2020 08:37

Задание в Паскаль: 1)найти сумму, произведение, частное а и в 2)квадрат суммы cv:=sqr(a+b) 3) целое частное thast:=a div b 4) целый остаток ost:=a mod b...

marsik261

28.01.2021 20:04

В государстве 118 городов, из каждого города выходит 8 дорог. Сколько всего дорог в государстве?...

pozdniakova1998

24.11.2022 04:52

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

Кей121

02.11.2022 11:30

Есть ли драйвер на radeon hd 4600 windows 10?...

OliWer02

02.11.2022 11:30

Дан массив из n чисел найти средне арифметическое...

leraloslerap00mm6

02.11.2022 11:30

Дано натуральное число.определить сумму его цифр, больших 5...

жорж78

04.06.2023 04:43

1) Сколько единиц в двоичной записи числа 4^2018+8^305-2^130-120? 2) Значение арифметического выражения 9^22+3^66-12 записали в системе счисления с основанием 3. Сколько цифр...

LetMaria

27.10.2022 03:33

Оформление ячейки что нужно сделать чтобы выделенная ячейка выглядела как в примере?...

Вика12342001

07.02.2020 17:53

видеокарта и процессор вообще не грузиться Суть проблемы собрал компьютер и пошел играть лагает а почему комплектующие нормальные СборкаR7 2700xRX6600xtAsrock pro4 b450Kingston...

artem222529ozd6op

20.04.2023 10:54

Как в электронных таблицах классифицыруется типы данных и выполняется автоматическое заполнение данными...

Ответ:

annamasha2004

07.10.2020 06:59

// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
var s:=ReadlnString('Введите строку: ');
Writeln(s.MatchValues('\d').Select(c->c.ToInteger).Sum)
end.

Пример
Введите строку: erer-5.456*3453gsd(4fgfh.==ertfer)re34se
46

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

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

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