Đọc bản đầy đủ ở đây: https://thuvienvatly.com/forums/index.php?topic=11903 : [Code] Giúp đỡ về tổng số có ba chữ số trong Pascal. : Alexman113 06:43:32 PM Ngày 14 September, 2012 Viết chương trình nhập vào một số nguyên có nhiều nhất ba chữ số. Tính tổng các chữ số của số nguyên đó. (Em mới học đến các phép toán bình thường chưa học đến các hàm, cấu trúc... với lại bài này Thầy có nói là liên quan đến DIV MOD ạ)
: Trả lời: [Code] Giúp đỡ về tổng số có ba chữ số trong Pascal. : Mclaren-Bi 09:35:28 PM Ngày 14 September, 2012 Thế này nhé, mình giải ra bài mẫu rồi các bài sau áp dụng tương tự nhé
Program BT; Uses Crt; Var S,T,a,b,c:integer;{a,b,c lan luot la cac chu so o hang tram,chuc,don vi} Begin Clrcsr; Write(' Nhap so nguyen:'); Readln(S); a:= S div 100; b:=(Smod 100) div 10; c:=(S mod 100) mod 10; T:=a+b+c; writeln('Tong cac chu so la',T:2); Readln End. |