- 26/8/07
- 3,415
- 5
Hỏi về sườn làm 1 bài tập pascal là nhập 1 số từ bàn phím, cho biết số đó có phải là số hoàn hảo hay ko nhé các bác? Sẵn cho hỏi luôn làm thế nào để computer của mình có Borland Pascal hay Turbo Pascal luôn nhá?
-
[THÔNG BÁO] CẢNH BÁO LỪA ĐẢO MẠO DANH QUẢN TRỊ VIÊN
Chào các thành viên GameVN,
Dạo gần đây tình trạng lừa đảo scamming và phishing đang gia tăng. Ban quản trị GameVN xin lưu ý toàn bộ thành viên:
KHÔNG/ ĐỪNG / CẤM cho bất kỳ ai tự xưng là quản trị viên của server vay tiền.
Mọi hành vi lân la làm quen, tự tiện nhắn tin trên Discord, Facebook, Zalo hoặc các nền tảng mạng xã hội khác,
núp bóng dưới danh nghĩa sinh hoạt của quản trị viên, đều có tỉ lệ rất, rất cao là lừa đảo.
Nếu có tài khoản lạ add friend hoặc nhắn tin xin tiền dưới danh nghĩa admin:
Block ngay
Report ngay
Không chuyển khoản, không cung cấp thông tin cá nhân
Quản trị viên của forum và Discord server GameVN không có nhu cầu vay tiền thành viên.
Không có lý do nào để admin chủ động kết bạn rồi xin tiền.
Mọi thông báo chính thức chỉ được đăng trên kênh thông báo của server và topic chính thức trên forum.
Tin nhắn riêng từ tài khoản lạ không phải thông báo của ban quản trị.
Cảm ơn các bạn đã chú ý và cùng giữ cộng đồng an toàn.
— Ban quản trị GameVN
Tắt thông báo bằng nút X bên góc phải của bảng thông báo*
Pascal & Perfect Number
- Thread starter Chinese_Fireball
- Ngày gửi
!
- 20/9/07
- 3,172
- 5
Số hoàn hảo là số có tổng các ước ko kể chính nó = chính nó
VD: 28= 1+2+4+7+14
Cách làm Nhập số cần kiểm tra :n
S là tổng, gán S=0
Cho i chạy từ 1 tới n\2 (phần nguyên của phép chia n cho 2, có thể thay là n-1 cũng chả sao)
nếu n mod i = 0 (n chia hết cho i) thì S=S+i
Thực hiện xong vòng lặp, kiểm tra xem S có bằng n ko, nếu bằng thì là số hoàn hảo
VD: 28= 1+2+4+7+14
Cách làm Nhập số cần kiểm tra :n
S là tổng, gán S=0
Cho i chạy từ 1 tới n\2 (phần nguyên của phép chia n cho 2, có thể thay là n-1 cũng chả sao)
nếu n mod i = 0 (n chia hết cho i) thì S=S+i
Thực hiện xong vòng lặp, kiểm tra xem S có bằng n ko, nếu bằng thì là số hoàn hảo
- 26/8/07
- 3,415
- 5
- Thread starter
- #4
A, đúng rồi, cám ơn lonton nhé. Mod lock topic này lại giùm tớ nhé 
Similar threads
