cho 1 số nguyên dương Ntính tổng tất cả các ước số chẵn của N
2 câu trả lời
Uses crt;
Var N,i,s: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
s:=0;
For i:=1 to n div 2 do
If (n mod i=0) and (i mod 2=0) then s:=s+i;
Write('Tong cac uoc so chan cua ',n,' la: ',s);
Readln
End.
Input: n
Thuật toán:
- Cho i chạy từ 1 đến n nếu n chia hết cho i và i chia hết cho hai thì cộng i vào biến tổng
Output: xuất biến tổng
