Question

nhập vào số nguyên n, in ra tổng các chữ số của n ( while.....do)  

Answer 1

Program HOC24;

var t,n: integer;

begin

write('Nhap N: '); readln(n);

while n<>0 do

begin

t:=t+(n mod 10);

n:=n div 10;

end;

write('Tong cac chu so cua ',n,' la: ',t);

readln

end.

Answer 2

Bạn phải cho điều kiện chứ

 

Answer 3

Var
i,s,n:LongInt;
begin
Write(n);
S:=0
i:=0
While n<1000 do
S:=S+i;
i:=n mod 10;
end;
Write(S);
End.
Chúc bạn học tốt!