Question

计算机Pascal程序

计算机Pascal程序：输入n(0《n《=50000) ，求因数为n的最小数（因数包括1和它本身）？如输入30，则输出720；输入6，输出12。注：测试数据的输出的数为十几位，甚至是几十位。急求!!!!
您给出的程序请带解释，便于我的理解。谢谢。敬上 。程序名：int 。补充：例如输入6，输出12，因为12的因数有1，2，3，4，6，12。6个数。 输入4，输出6，因为6的因数有1，2，3，6。4个数。虽然27也有1，3，9，27。4个因数，但27大于6，则只输出6。希望您能看懂我的补充。 一般的做法我也会，但这道题必须用高精度计算才行，而且还必须有一个高效率的算法，否则，十个测试数据有9个超时

Answer 1

var i,j,k,s,t,n,m,x,y,z:longint;
begin
readln(n);
i:=n;
while 3=3 do
begin
k:=2;
for j:=2 to i-1 do
if (i mod j=0) then
k:=k+1;
if k=n then
begin
write(i);
halt;
end;
i:=i+1;
end;
end.
不过算50000可能会超时

Answer 2

题目描述太少了

Answer 3

题目貌似不完整

Answer 4

var i,j,k,s,t,n,m,x,y,z:longint;
begin
readln(n);
i:=n;
while 3=3 do
begin
k:=2;
for j:=2 to i-1 do
if (i mod j=0) then
k:=k+1;
if k=n then
begin
write(i);
halt;
end;
i:=i+1;
end;
end.