Ai làm giúp mình bài Pascal này với!

Minh abc · 22/8/14

1)Viết chương trình nhập vào một số tự nhiên từ bàn phím và in ra màn hình số các chữ số lẻ có mặt trong số đó VD 1520 in ra là so nay co 2 chu so le
2) số hoàn hảo là số bằng tổng các ước số của nó ko kể chính nó. Viết chương trình tìm mọi số hoàn hảo ko lớn hơn số n cho trước với n nhập từ bàn phím
Tks trc

aloxinh_nb · 22/8/14

Mình cho bạn ý tưởng nhé

bài 1: dùng string, rồi dùng vòng lặp chạy từ đầu đến length(string) kiểm tra các từng phần tử trong string có phải là số lẻ không. tại 1 biến đếm. Nếu là số lẻ thì tăng biến đêm lên 1.

Bài2: viết hàm con kiểm tra 1 số k bất kì có phải là ước số của số đó không. sau đó trong chương trình chính gọi lại hàm con. tạo 1 biến tổng ước số =0. Nếu hàm con kiểm tra ước số trả về true thì tổng = tổng + cho ước số.
Nếu sau khi kiểm tra hết ước số của số nhập vào từ bàn phím và tổng của các ước số thỏa mãn thì xuất ra số đó chính là số hoàn hảo

quanltv · 22/8/14

aloxinh_nb:
Mình cho bạn ý tưởng nhé
bài 1: dùng string, rồi dùng vòng lặp chạy từ đầu đến length(string) kiểm tra các từng phần tử trong string có phải là số lẻ không. tại 1 biến đếm. Nếu là số lẻ thì tăng biến đêm lên 1.

Bài2: viết hàm con kiểm tra 1 số k bất kì có phải là ước số của số đó không. sau đó trong chương trình chính gọi lại hàm con. tạo 1 biến tổng ước số =0. Nếu hàm con kiểm tra ước số trả về true thì tổng = tổng + cho ước số.
Nếu sau khi kiểm tra hết ước số của số nhập vào từ bàn phím và tổng của các ước số thỏa mãn thì xuất ra số đó chính là số hoàn hảo

Bài 1 như thế cũng được, bạn phải chuyển mỗi kí tự số ra mã ASCII rồi lại xét tính chẵn lẽ của mã đó. VD kí tự "0" mang mã là 48. Hoặc có thể dùng đoạn code sau để cắt lấy từng chữ số để đếm
Mã:
```
dem:= 0;
k := n mod 10; {k là biến tạm để lấy từng chữ số}
if k mod 2 = 1 then dem:= dem + 1; {nếu là chữ số lẻ thì tăng biến đếm 1 đơn vị}
n := n div 10; {cắt bỏ chữ số hàng đơn vị đi}
```
Đoạn code này bạn tự thêm vào 1 vòng lặp nhé
Mình đồng ý với ý tưởng bài 2, nhưng aloxinh mới xác định được số nào là số hoàn hảo thôi. Cần đóng gói nó vào 1 hàm rồi tìm tất cả các số hoàn hảo không lớn hơn n như đề bài yêu cầu.

Ai làm giúp mình bài Pascal này với!

aloxinh_nb

It's Secret !

quanltv

Sư phụ của ADMIN

Bài viết mới nhất

Bài viết đang hot

Thống kê

Bài viết được quan tâm nhiều