Giải bởi Vietjack
Lời giải:
uses crt;
var m,n,s:longint;
begin
clrscr;s:=0;
write('Nhap n: ');readln(n);
while n<>0 do
begin
m:=n mod 10;
n:=n div 10;
s:=s+m;
end;
write('Tong cac chu so cua n la: ',s);
readln
end.
Gói VIP thi online tại VietJack (chỉ 400k/1 năm học), luyện tập gần 1 triệu câu hỏi có đáp án chi tiết
