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

Question

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

Comments

почему практически никто не пишет, в какой среде нужна программа?

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<br>        begin
           c:=ord(s[i])-48;
           sum:=sum+c;
        end;
    writeln(sum);
end.