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.
Câu hỏi trong lớp
Xem thêm