Viết chương trình nhập vào một số có ba chữ số và tính tổng của 3 số đó.
VD: Nhập vào số 145 kết quả là: 1+4+5=10.
Giải chi tiết, rõ ràng, dễ hiểu, có thể gửi chạy chương trình thì càng tốt hơn.
Cảm ơn rất nhiều ????????????
Viết chương trình nhập vào một số có ba chữ số và tính tổng của 3 số đó.
VD: Nhập vào số 145 kết quả là: 1+4+5=10.
Giải chi tiết, rõ ràng, dễ hiểu, có thể gửi chạy chương trình thì càng tốt hơn.
Cảm ơn rất nhiều ????????????
program tinhtong;
uses crt;
var n,S,A,B,C:integer;
begin
clrscr;
write(‘n =’); readln(n);
if (100<=n) and (n<=999) then
begin
C:=n mod 10;
B:=n div 10; B:=B mod 10;
A:=n div 100; C:=C mod 10;
S:=A+B+C;
writeln(‘ Tong 3 chu so cua so ‘,n,’ la: ‘,S);
end
else writeln(‘Vui long nhap so co 3 chu so’);
readln;
end.
*A: hàng trăm
B: hàng chục
C: hàng đơn vị
S: tổng của hàng trăm, hàng chục và hàng đơn vị
program phuongt;
uses crt;
var
i, n, b, j, x: integer;
begin
clrscr;
write(‘n = ‘); readln(n);
if (n<1000) and (n>99) then
begin
j:=0;
while n<>0 do
begin
x:=n mod 10;
n:=n div 10;
b:=b*10+x;
j:=j+x;
end;
write(‘Ket qua: ‘,j);
end
else
write(‘n la so co 3 chu so’);
readln
end.