Viết chương trình nhập vào từ bàn phím một số nguyên không âm, không yượt quá 999, hãy tính và đưa ra màn hình tổng các chữ số của số đó
2 câu trả lời
uses crt;
var n:word;
begin
clrscr;
readln(n);
write( (n div 100) + ((n div 10) mod 10) + (n mod 10) );
// readln;
end.
uses crt;
var n,ans:longint;
begin
clrscr;
readln(n);
while n <> 0 do
begin
inc(ans,n mod 10);
n:=n div 10;
end;
writeln(ans);
readln;
end.
Câu hỏi trong lớp
Xem thêm
