---

var i:string;
    a,b,c:longint;
begin
while not eof do begin
readln(i);
a:=length(i);
for b:= 1 to a do begin
if i[b]<>' ' then c:=c+ord(i[b])-48;
end;
writeln(c);c:=0;
end;
end. 

---

多谢你的代码啦