#5109: 强大的读写练习，让人疯狂
jkljk6
(钱猪肉)
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.
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.
#9377: Re:强大的读写练习，让人疯狂
lsweizixuan
(摸鱼学语言)
多谢你的代码啦