Viết tổng chương trình n in ra tổng các chữ số n

2 câu trả lời

Program baitap;

Uses crt;

Var n,T,d:longint;

Begin

Clrscr;

Write('Nhap n:'); Readln(n);

T:=0;

While n<>0 do

     Begin

     d:=n mod 10;

     N:=n div 10;

     T:=T+d;

     End;

Writeln( 'Tong cac chu so n:', T);

Readln;

End.

$\text{tham khảo}$ 

Câu hỏi trong lớp Xem thêm
1 lượt xem
2 đáp án
2 giờ trước