P02E01d

program P02E01d;

var
  entrada : integer;
  suma : integer;

begin
    suma := 0;

    read(entrada);
    while ( entrada <> 0 ) do
    begin
        while( entrada <> 0 ) do
        begin
           suma := suma + (entrada mod 10);
           entrada := entrada div 10;
        end;

        writeln(suma);

        read(entrada);
    end;
end.