[Code] Giúp đỡ về tổng số có ba chữ số trong Pascal.

[Alexman113]

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 ạ)

[Mclaren-Bi]

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.