百度棚困到一个咐坦程序,你衡和桐试试看。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); readlnend.