Câu trả lời:
Uses crt;
Var
n,t:longint;
BEGIN
Read(n);
While n<>0 do
Begin
t:=t+n mod 10;
n:=n div 10;
End;
Write(t);
Readln;
END.
Môn học
Chủ đề / Chương
Bài học