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

123

401

Посмотреть ответы 2

Ответы на вопрос:

yana221002

Информатика

4,6(45 оценок)

Var digits: set of '0'..'9'; s: string; i, p, d, err: integer; begin digits : = ['0'..'9']; write('введите строку: '); readln(s); p : = 0; for i : = 1 to length(s) do if (s[i] in digits) then begin val(s[i], d, err); p : = p + d end; writeln('сумма цифр равна ', p) end. тестовое решение: введите строку: сегодня 17 декабря 2014г. находим сумму 7 цифр их этой строки. сумма цифр равна 22