Đăng nhập để hỏi chi tiết


Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
var i,n,kq:longint;
begin
write('Nhap n: '); readln(n);
for i:=1 to trunc(sqrt(n)) do if n mod i = 0 then inc(kq,i);
write('Tong uoc so cua N la: ',kq);
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin
37
421
27
cho hay nhất nha bn