houxinlong2 2014-07-26 00:00:30
点我顶贴
收藏
删除
var a:array[1..20000]of integer;
i,n,p:integer;
s:qword;
t:ansistring;
begin
s:=0;
readln(t);
n:=length(t);
for i:=1 to n do
a[i]:=ord(t[i])-ord('0');
p:=n;
while a[p]=0 do dec(p);
for i:=p downto 1 do
begin
write(a[i]);
s:=s+a[i];
end;
writeln;
write(s);
end.