Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Ly Huỳnh

Viết chương trình tính tổng các chữ số của một số tự nhiên n được nhập từ bàn phím

Minh Lệ
12 tháng 3 2023 lúc 21:51

Program HOC24;

var tg,t,n: integer;

begin

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

t:=0;

while n<>0 do

begin

tg:=n mod 10;

t:=t+tg;

n := n div 10;

end;

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

readln

end.


Các câu hỏi tương tự
lân đinh
Xem chi tiết
Trần Long
Xem chi tiết
thuan_64
Xem chi tiết
Trường Nguyễn
Xem chi tiết
Phát Trương Tấn
Xem chi tiết
Ske Bình
Xem chi tiết
Danh hậu
Xem chi tiết
Ly Huỳnh
Xem chi tiết
Ét o Ét :(
Xem chi tiết