Đọc bản đầy đủ ở đây: https://thuvienvatly.com/forums/index.php?topic=11903 Tiêu đề: [Code] Giúp đỡ về tổng số có ba chữ số trong Pascal. Gửi bởi: Alexman113 trong 06:43:32 pm Ngày 14 Tháng Chín, 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 ạ)
Tiêu đề: Trả lời: [Code] Giúp đỡ về tổng số có ba chữ số trong Pascal. Gửi bởi: Mclaren-Bi trong 09:35:28 pm Ngày 14 Tháng Chín, 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. |