Viết chương trình nhập vào 1 số có bốn chữ số. Sau đó tính và đưa ra màn hình, tổng các chữ số của số nguyên đó. ( chẳng hạn 4527). Tổng là 4+5+2+7 = 18. Gợi ý cả bài 2 và 3 có thể sử dụng phép toán DIV và MOD
2 câu trả lời
program baigiai;
uses crt;
var n,s,k:longint;
begin
clrscr;
write('n=');readln(n);
while(n<1000)and(n>9999)do
begin
clrscr;
write('nhap lai n.Sao cho 1000<n<9999');readln(n);
end;
s:=0;
while n<>0 do
begin
k:=n mod 10;
n:=n div 10;
s:=s+k;
end;
writeln('tong cac chu so cua so n la:',s);
readln;
end.
var x,y:longint;
begin
readln(x);
y:=0;
while x<>0 do
begin
y:= y + x mod 10;
x := x div 10;
end;
writeln('Tong cac chu so = ',y);
readln;
end.
