Thuật toán:

- B1: Nhập vào 1 số có 3 chữ số.

- B2: Tách ra từng số 1 trong số nhập vào.

- B3: Tính tổng các số đã tách.

- B4: Xuất ra tổng.

input Số nguyên N

output tổng các chữ số trong dãy số

b1 nhập số N

b2 lấy N chia 1000 lấy dư lấy kết quả chia 100 lấy nguyên

xuất số thứ 1

b3 lấy N chia 100 lấy dư, lấy kết quả vừa thu chia 10 lấy nguyên

xuất số thứ 2

b4 lấy N chia 10 lấy dư, xuất kết quả

b5 kết thúc

----pascal ví dụ--------

var n:longint;
begin
readln(n);
if n<1000 then
begin
writeln('thu nhat   ', n mod 1000 div 100);
writeln('thu 2   ',n mod 100 div 10);
write('thu 3  ',n mod 10 );
end;
end.

`khoadang09`