Помогите пожалуйста решить задачу: Дана символьная строка. Найти сумму цифр в ней.

1

Ответы и объяснения

2013-05-10T21:27:07+04:00

Pascal

var n,i.z,m:integer;

s:string[n];

readln(n);

for i:=1 to n do

if s[i]:='1' or s[i]:='2' or s[i]:='3' or s[i]:='4' or s[i]:='5' or s[i]:='6' or s[i]:='7' or s[i]:='8' or s[i]:='9' or s[i]:='0' 

then

begin

m:=Ord(s[i]);

z:=z+m;

end;

writeln(z);

end.