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

Question

Информатика

Стенюша

21 августа, 21:46

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

+2

Ответы (1)

Знаете ответ?

Володяка · 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.