Nhập số bất kỳ có 3 chữ số rồi tính tổng các chữ số của số đó. viết chương trình
2 câu trả lời
var i,n,t:longint;
begin
write('Nhap n: '); readln(n);
for i:=1 to 3 do
begin
t:=t + n mod 10;
n:=n div 10
end;
write('Tong la: ',t);
readln
end.
uses crt;
var a:integer;
tong:byte;
BEGIN clrscr;
write('Nhap 1 so co 3 chu so: ');
readln(a); tong:= a mod 10;
a:=a div 10;
tong:=tong+a mod 10;
a:=a div 10;
tong:=tong+a mod 10;
writeln('Tong cac chu so do la: ',tong);
readln
END.
