đáp án 19. Giải thích:

- n=3457 (n>0) nên thực hiện câu lệnh tam:=n mod 10=3457 mod 10=7=> tam=7

- tiếp tục thực hiện câu lệnh tong:=tong+tam=0+7=7=> tong=7

- tiếp tục thực hiện câu lệnh n:=n div 10=3457 div 10= 345 =>n lúc này = 345

----------------------

- n=345 (n>0) nên thực hiện câu lệnh tam:=n mod 10=345 mod 10=5=>tam=5

- tiếp tục thực hiện câu lệnh tong:=tong+tam= 7+5=12

- tiếp tục thực hiện câu lệnh n:=n div 10= 345 div 10=34=> n lúc này =34

-----------------------

- n=34 (n>0) nên thực hiện câu lệnh tam:=n mod 10=4=> tam=4

- tiếp tục thực hiện câu lệnh tong:=tong+tam=12+4=> tong=16

- tiếp tục thực hiện câu lệnh n:=n div 10=34 div 10=3=> n lúc này=3

------------------------

- n=3 (n>0) nên thực

hiện câu lệnh tam:=n mod 10=3=> tam=3

- tiếp tục thực hiện câu lệnh tong:=tong+tam=16+3=19=> tong=19

- tiếp tục thực hiện câu lệnh n:=n div 10=3 div 10=0=> n lúc này =0

-------------------------

n=0 (n<0) điều kiện sai kết thúc vòng lặp

vậy kết quả là 19

tong := 0 ; n := 3457 ;

While n = 3457 > 0 do

begin

          tam := 3457 mod 10 = 7 ( mod là chia lấy phần dư ) ;

          tong := 0 + 7 = 7 ( tổng ở trên gián = 0 , tam = 7 ) ;

          n := 3457 div 10 = 345 ( div là chia lấy phần nguyên ) ;

end.

While n 345 > 0 do

begin

          tam := 345 mod 10 = 5 ;

          tong := 7 + 5 = 12 ;

          n := 345 div 10 = 34 ;

end.

While n = 34 > 0 do

begin

           tam := 34 mod 10 = 4 ;

           tong := 12 + 4 = 16 ;

           n := 34 div 10 = 3 ;

end.

While n =3 > 0 do

begin 

           tam := 3 mod 10 = 3 ;

           tong := 16 + 3 = 19 ;

            n := 3 div 10 = 0 ;

end.

$\longrightarrow$ Vậy biến tong = 19 sau khi thực hiện chạy ctrinh

$\textit{@banhbaonuong}$