好吧问答库 > 任何一个自然数的约数中都有1和它本身，我们把小于它本身的因数叫做这个自然数的真约数。用freepascal。

任何一个自然数的约数中都有1和它本身，我们把小于它本身的因数叫做这个自然数的真约数。用freepascal。

2024年11月20日 16:41

有1个网友回答

网友（1）：

百度棚困到一个咐坦程序，你衡和桐试试看。
program yueshuhe;
var n,i,s:longint;
begin
writeln('input n:');
readln(n);
s:=1;
for i:=2 to n do
begin
if n mod i=0 then s:=s*i;
end;
write('s=',s);
readln
end.