作业帮编程输入一个自然数x,求这个自然数的所有约数（包括1和x本身）之和 pascal语言
来源：学生作业帮助网 编辑：作业帮 时间：2024/07/05 17:11:04
x){g/M~ںɎ';Vh_e۳*tmlz&Y-:|k~OӞgk Nx6g͋]|W(H,NNy~
6IELΆ~+K,RԩITxgVf^Ijzj5X&)5=3*JMLѨЄ'Z*@i@
V
%
)
h3Ӏ¹)@U@M
%y
@
ڙ3RR ̒TDM~qAb (T i
编程输入一个自然数x,求这个自然数的所有约数（包括1和x本身）之和 pascal语言
编程输入一个自然数x,求这个自然数的所有约数（包括1和x本身）之和 pascal语言
编程输入一个自然数x,求这个自然数的所有约数（包括1和x本身）之和 pascal语言
var i,x,a ：integer;
begin
read(x);
a:= 0;
for i :=1 to x do
begin
if x mod i = 0 then a := a+i;
end;
write(a);
end.