var
    s : String;
    sum, i, x : LongInt;
begin
  Read(s);
  sum := 0;
  for i := 1 to length(s) do
  begin
    x := Ord(s[i]) - Ord('0');
    sum := sum + x;
  end;
  Write(sum);
end.