Question

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

Answer 1

Pascal
---
var s:string;  
     i,c,sum:integer;
begin
    readln(s);
    sum:= 0;
    for i:=1 to Length(s) do
        if (s[i]>='0')and(s[i]<='9') then
        begin
           c:=ord(s[i])-48;
           sum:=sum+c;
        end;
    writeln(sum);
end.