nhập số nguyên A có 4 chữ số ,tính tổng các chữ số của A cảm ơn

0 bình luận về “<pascal> nhập số nguyên A có 4 chữ số ,tính tổng các chữ số của A cảm ơn”

1. -đưa sang dạng xâu rồi chạy for tìm được cuối với đầu

   -cách 2 thì: lấy nó chia dư cho 10 thì thu dc số cuối , chia nguyên nó cho 10 cho đến khi nó nhỏ hơn 10 thì dừng :v

   Bình luận

2. uses crt;
   var tong,a,n,cs:longint;
   begin
   clrscr;
   repeat write(‘Nhap A (999<A<10000)=’);readln(a);
   until (999<a) and (a<10000);
   n:=a; tong:=0;
   repeat
     cs:=n mod 10;
     tong:=tong+cs;
     n:=n div 10;
   until n=0;
   write(‘Tong cac chu so trong ‘,a,’=’,tong);
   readln;
   end.

   Bình luận