Vua Tên Miền chuyên cung cấp tên miền đẹp, giá rẻ! Hãy liên hệ kỹ thuật: 0914205579 - Kinh doanh: 0912191357 để được tư vấn, hướng dẫn miễn phí, Cảm ơn quý khách đã ủng hộ trong thời gian qua!
kinh doanh, bán hàng, tư vấn, bảo hiểm Những cá nhân, tổ chức, đại lý,muốn bán, hợp đồng bảo hiểm
Wednesday, January 16, 2019




Để tính tng các ước s ca s n, ta cho i chy t 1 đến n div 2, nếu n chia hết cho s nào thì ta cng s đó vào tng. (Chú ý cách tính này chưa xét n cũng là ước s ca n).
func­tion tongus(n : in­te­ger): in­te­ger;
var i,s : in­te­ger;
be­gin
            s := 0;
            for i := 1 to n div 2 do
                        if n mod i = 0 then s := s + i;
            tongus := s;
end;
Chú ý: Da trên thut toán tính tng ước s, ta có th kim tra được 1 s nguyên có là s hoàn thin không: s nguyên gi là s hoàn thin nếu nó bng tng các ước s ca nó.

0 comments:

Post a Comment

domain, domain name, premium domain name for sales

Popular Posts