键入一个自然数x，求这个自然数的所有正约数之和S。
要求：运用pascal语言，可能会用到计数循环结构，if条件和mod取余。
如还有异议，请提出。
急求答案。THS
计算机编程入门题 求解
答案:2 悬赏:30 手机版
解决时间 2021-05-06 09:33
- 提问者网友：献世佛
- 2021-05-05 15:03
最佳答案
- 五星知识达人网友：千夜
- 2021-05-05 15:43
var i,p,n,s:longint;
begin
readln(n); s:=0;
for i:=1 to n do
if (n mod i=0) then s:=s+i;
writeln(s);
end.
全部回答
- 1楼网友：独行浪子会拥风
- 2021-05-05 15:50
program pp;
var i,p,n,s as intger;
begin
writeln("please input number n:");
readln(n);
for i:=2 to n\2+1 do
begin
if (n mod i=0) then
begin
p=n\i;
s=s+i;
while(p mod i=0) do
begin
p=p\i;
s=s+i;
end
end
end
writeln("s=",s);
end.
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯