viết chương trình nhập vào một số nguyên n rồi in ra màn hình tổng các chữ số của n
Quảng cáo
1 câu trả lời 144
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.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
149346 -
Đã trả lời bởi chuyên gia
99768 -
Đã trả lời bởi chuyên gia
97375 -
Đã trả lời bởi chuyên gia
80043 -
Đã trả lời bởi chuyên gia
72882 -
Đã trả lời bởi chuyên gia
55970 -
Đã trả lời bởi chuyên gia
55345
Gửi báo cáo thành công!
