program ex4;
var n,t1: longint;
procedure sub1(x:longint; var t:integer);
begin
repeat
t:=t+x mod 10; x:=x div 10;
until x=0
end;
begin
readln(n);
sub1(n,t1);
write(t1);
end.
输入：48375

输出：27