Дана строка. среди символов встречаются цифры. написать программу, вычисляющую сумму всех цифр
Дана строка. среди символов встречаются цифры. написать программу, вычисляющую сумму всех цифр
Ответ(ы) на вопрос:
Гость
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
Не нашли ответ?
Похожие вопросы