Giai Nobel 2012
05:23:58 pm Ngày 21 Tháng Ba, 2024 *
Diễn đàn đã ngưng hoạt động và vào chế độ lưu trữ.
Mời tham gia và trao đổi trên nhóm Facebook >> TẠI ĐÂY <<
  Trang chủ Diễn đàn  


Quy định cần thiết


Diễn đàn đã ngưng hoạt động và vào chế độ lưu trữ. Mời tham gia và trao đổi trên nhóm Facebook >> TẠI ĐÂY <<

Trả lời

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

Trang: 1   Xuống
  In  
Tác giả Chủ đề: [Code] Giúp đỡ về tổng số có ba chữ số trong Pascal.  (Đọc 3090 lần)
0 Thành viên và 1 Khách đang xem chủ đề.
Alexman113
Lão làng
*****

Nhận xét: +26/-9
Cảm ơn
-Đã cảm ơn: 229
-Được cảm ơn: 270

Offline Offline

Bài viết: 551


KK09XI


Email
« vào lúc: 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 ạ)


Logged



KK09XI ~ Nothing fails like succcess ~
Mclaren-Bi
Moderator
Thành viên danh dự
*****

Nhận xét: +8/-5
Cảm ơn
-Đã cảm ơn: 97
-Được cảm ơn: 112

Offline Offline

Giới tính: Nam
Bài viết: 390


We do not forgive- We do not forget- Expect us


Email
« Trả lời #1 vào lúc: 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.


Logged

Đừng cố gắng những gì ngoài tầm với...
 Mây của trời hãy để gió cuốn đi
Tags:
Trang: 1   Lên
  In  


Những bài viết mới nhất
Những bài viết mới nhất
 
Chuyển tới:  

© 2006 - 2012 Thư Viện Vật Lý.
Cache action__board_0_topic_11914_u__tags_0_start_0