Thuật toán tính tổng ước số của số nguyên

Để tính tổng các ước số của số n, ta cho i chạy từ 1 đến n div 2, nếu n chia hết cho số nào thì ta cộng số đó vào tổng. (Chú ý cách tính này chưa xét n cũng là ước số của n).

Chương trình:

function tongus(n : integer): integer;

var i,s : integer;

begin

s := 0;

for i := 1 to n div 2 do

if n mod i = 0 then s := s + i;

tongus := s;

end;
Theo lập trình vn


Posted in: lập trình cơ bản. tự học lập trình cơ bản