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

2024-11-20 16:41:58
推荐回答(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.