viết chương trình tính tổng các ước của 1 số nguyên dương cho trước ví dụ nhập 24 in ra 60 Làm trong pascal

\begin{array}{c} \color{#db1616}{\texttt{#Khoadang09}} \end{array}

- Ta gọi n là số cần tính tổng các ước

- `i` được gọi là ước của một số  `n` khi và chỉ khi `n` chia hết cho số đó (`n vdotsi`) 

- Để xét tính chia hết, ta sử dụng phép chia lấy dư là mod trong Pascal - if n mod i = 0

- Để tính tổng, ta dùng phép cộng 

- `1` và `n` chính là ước của chính nó, vì vậy tổng `s` ban đầu được gán là `n+1`

- Để xét hết các ước của n, ta duyệt từ 2 đến `n/2` (các ước của `n` tồn tại từ `1` đến `n/2`)

- Còn gì không hiểu comment hỏi nhé

*Code :

program tong_uoc;
  uses crt;
    var n, i, tong : longint;
begin
    clrscr;
    write('Nhap n: '); readln(n);
    tong := n + 1 ;
    for i := 2 to n div 2 do 
        if n mod i = 0 then tong := tong + i ;
    writeln('Tong cac uoc cua ',n,' la: ',Tong);
    readln;
end .

var n,s,i:integer;
begin 
    read(n);
    s := 0;
    for i := 1 to trunc(sqrt(n)) do 
    begin
        if n mod i = 0 then 
        begin
            s := s + i;
            if trunc(n/i) <> i then s := s + trunc(n/i);
        end;
    end;
    write(s);
end.