<pascal> nhập số nguyên A có 4 chữ số ,tính tổng các chữ số của A cảm ơn
2 câu trả lời
uses crt;
var tong,a,n,cs:longint;
begin
clrscr;
repeat write('Nhap A (999<A<10000)=');readln(a);
until (999<a) and (a<10000);
n:=a; tong:=0;
repeat
cs:=n mod 10;
tong:=tong+cs;
n:=n div 10;
until n=0;
write('Tong cac chu so trong ',a,'=',tong);
readln;
end.
-đưa sang dạng xâu rồi chạy for tìm được cuối với đầu
-cách 2 thì: lấy nó chia dư cho 10 thì thu dc số cuối , chia nguyên nó cho 10 cho đến khi nó nhỏ hơn 10 thì dừng :v
Câu hỏi trong lớp
Xem thêm
