Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nam Trịnh bảo

Em hãy viết chương trình thực hiện yêu cầu sau Nhập giá trị n từ bàn phím. Tính và in ra màn hình tổng các chữ số của n(biến T) VD: n có giá trị là 30546 --> T có giá trị là 18(3+0+5+4+6)

Mai Nguyễn Tuấn Anh
20 tháng 1 2022 lúc 20:19

Uses crt;
Var
      n,t:longint;
BEGIN
      Read(n);
      While n<>0 do
            Begin
                 t:=t+n mod 10;
                 n:=n div 10;
            End;
       Write(t);
Readln;
END.

 


 

Lê Phương Mai
20 tháng 1 2022 lúc 20:20

Refer:

Program baitap;

Uses crt;

Var n,x,T:integer;

Begin

Clrscr;

T:=0;

Write('n='); Readln(n);

While ( N <> 0 ) do

     Begin

     x := n mod 10;

     n := n div 10;

     T := T + x; 

     End;

Writeln('T=',T);

Readln

End.

Đỗ Tuệ Lâm
20 tháng 1 2022 lúc 20:48

undefined


Các câu hỏi tương tự
Trúc Linh
Xem chi tiết
Nguyễn Kim Trí
Xem chi tiết
42. Hồ Đăng Quốc Trung....
Xem chi tiết
KenShi
Xem chi tiết
Lê Ân
Xem chi tiết
foxbi
Xem chi tiết
Bùi Lê Thanh Trúc
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết