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

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.

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