数据范围多大？要是小的话，循环找不就好了。中间加一个S:=MIN{};最后输出svar i,j,k:longint;
s,v:longint;function min(a,b:longint):longint; begin
if a<b then min:=a else min:=b end; begin
readln(v);
s:=maxlongint;
for i:=1 to v do
for j:=i to v do
if v mod (i*j)=0 then
begin
k:=v div ...
