大神们,江湖救急
pascal吧
全部回复
仅看楼主
level 1
有这样一道题:已知一个正整数N(20 <= N <= 800000000),请你编写程序求出该数的全部因子(不包括1)的和。能在今天傍晚前给我吗?谢谢,麻烦了!(跪拜ing~)
2017年07月25日 01点07分 1
level 1
是这个网站:oj.jzxx.net,里面的1084题
2017年07月25日 01点07分 2
level 1
打错了,是1804题
2017年07月25日 02点07分 3
level 5
这道吗?
2017年07月25日 12点07分 4
level 5
var
n,i,s:longint;
begin
readln(n);
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then
begin
inc(s,i+n div i);
if i=n div i then
dec(s,i);
end;
writeln(s);
end.
2017年07月25日 12点07分 5
level 1
小姐姐你q多少昂
2018年08月26日 06点08分 6
1