2 câu trả lời
program window
uses crt;
var n,m:longint;tong:byte;
BEGIN
clrscr;
write('Nhap n: ');readln(n);
tong:=0;m:=n;
while m>0 do
begin
tong:=tong+m mod 10;
m:=m div 10;
end;
writeln('Tong cac chu so cua ',n,' la: ',tong);
readln
END
Chúc bạn học tốt
var
i,n, d : integer;
s : string;
begin
readln(n);
str(n,s); d:=0;
for i:=1 to length(s) do d:=d+s[i];
writeln(d);
readln;
end.