编程输入一个自然数x,求这个自然数的所有约数(包括1和x本身)之和 pascal语言
来源:学生作业帮助网 编辑:作业帮 时间:2024/05/26 19:55:06
编程输入一个自然数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.
收录互联网各类作业题目,免费共享学生作业习题
慧海网手机作业共收录了 千万级 学生作业题目
来源:学生作业帮助网 编辑:作业帮 时间:2024/05/26 19:55:06
编程输入一个自然数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.