var a,b,c,d:longint;
begin
read(a);
b:=a mod 10;
c:=a div 10 mod 10;
d:=a div 100;
write(b+c+d);
end.
/**************************************************************
	Problem: 1716
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/