求正整数 [复制链接]

对于任意输入的正整数n，请编程求出具有n个不同因子的最小正整数m。
例如：n=4，则m=6，因为6有4个不同整数因子1，2，3，6；而且是最小的有4个因子的整数。

输入
n（1≤n≤50000）

输出
  m

样例
INT.IN          
4

INT.OUT
6

easy题……

这题很简单，用双重循环就ok了！
program int;
var i,j,k,n,sum:integer;
  zd:boolean;
begin
assign(input,'int.in');
assign(output,'int.out');
reset(input);
rewrite(output);
read(n);
zd:=false;
for i:=1 to 50000 do
  begin
  sum:=0;
  for j:=1 to i do
    if i mod j=0 then
      sum:=sum+1;
  if sum=n then
    begin
    zd:=true;
    k:=i;
    break;
    end;
  end;
  if zd=true then
  writeln(k)
  else writeln(0); {如果没找到输出0}
close(input);
close(output);
end.

楼上是怎么做的没看懂

有测试数据吗？

组合数学题

顶一下等人解  注意效率问题~

引用第2楼baigewxl于2006-11-14 09:39发表的  :
这题很简单，用双重循环就ok了！
program int;
var i,j,k,n,sum:integer;
    zd:boolean;
begin
.......

二楼的这么低效率~版主~~写点高效点的~~.........

简单

从i:=1到50000分别判断是否是质数，是的话，inc(sum)，s[sum]:=i，如果sum=n就把s中所有的数乘起来并退出循环就好了