LH

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

ML
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.

Bình luận (0)

Các câu hỏi tương tự
LD
Xem chi tiết
TL
Xem chi tiết
H24
Xem chi tiết
TN
Xem chi tiết
PT
Xem chi tiết
SB
Xem chi tiết
DH
Xem chi tiết
LH
Xem chi tiết
EE
Xem chi tiết