/ Vijos / 题库 / 分解因式 /

题解

139 条题解

  • 0
    @ 2008-11-19 21:09:09

    编译通过...

    ├ 测试数据 01：答案正确... 0ms

    ├ 测试数据 02：答案正确... 0ms

    ├ 测试数据 03：答案正确... 0ms

    ├ 测试数据 04：答案正确... 0ms

    ├ 测试数据 05：答案正确... 0ms

    ├ 测试数据 06：答案正确... 0ms

    ├ 测试数据 07：答案正确... 0ms

    ├ 测试数据 08：答案正确... 0ms

    ├ 测试数据 09：答案正确... 0ms

    ├ 测试数据 10：答案正确... 0ms

    ---|---|---|---|---|---|---|---|-

    Accepted 有效得分：100 有效耗时：0ms

    穷举。算到N的平方根，就行了。再*2。如果是质数，减一个1。

  • 0
    @ 2008-11-03 08:20:38

    很好很暴力……不过数据大了怎么办？

    建议大家再把这道题得加强版做一下，VIJOS上有

  • 0
    @ 2008-10-30 20:07:24

    我喜欢这样的题目..

  • 0
    @ 2008-10-29 14:29:58

    水水的

    var

    k,i,j:longint;

    ls:array[1..20000] of longint;

    begin

    readln(k);

    for i:=1 to 20000 do

    for j:=1 to 20000 div i do

    inc(ls);

    for i:=1 to 20000 do

    if ls[i]=k then

    begin

    write(i);

    halt;

    end;

    write('NO SOLUTION');

    end.

  • 0
    @ 2008-10-27 18:53:06

    编译通过...

    ├ 测试数据 01：答案正确... 0ms

    ├ 测试数据 02：运行超时...

    ├ 测试数据 03：答案正确... 0ms

    ├ 测试数据 04：答案正确... 0ms

    ├ 测试数据 05：运行超时...

    ├ 测试数据 06：答案正确... 0ms

    ├ 测试数据 07：答案正确... 494ms

    ├ 测试数据 08：答案正确... 806ms

    ├ 测试数据 09：运行超时...

    ├ 测试数据 10：答案正确... 791ms

    ---|---|---|---|---|---|---|---|-

    Unaccepted 有效得分：70 有效耗时：2091ms

  • 0
    @ 2008-10-23 23:07:44

    编译通过...

    ├ 测试数据 01：答案正确... 0ms

    ├ 测试数据 02：答案正确... 775ms

    ├ 测试数据 03：答案正确... 0ms

    ├ 测试数据 04：答案正确... 0ms

    ├ 测试数据 05：答案正确... 697ms

    ├ 测试数据 06：答案正确... 0ms

    ├ 测试数据 07：答案正确... 291ms

    ├ 测试数据 08：答案正确... 478ms

    ├ 测试数据 09：答案正确... 728ms

    ├ 测试数据 10：答案正确... 462ms

    ---|---|---|---|---|---|---|---|-

    Accepted 有效得分：100 有效耗时：3431ms

    白痴方法也能过！？

  • 0
    @ 2008-10-19 19:57:11

    IT'S TOO EASY编译通过...

    ├ 测试数据 01：答案正确... 0ms

    ├ 测试数据 02：答案正确... 0ms

    ├ 测试数据 03：答案正确... 0ms

    ├ 测试数据 04：答案正确... 0ms

    ├ 测试数据 05：答案正确... 0ms

    ├ 测试数据 06：答案正确... 0ms

    ├ 测试数据 07：答案正确... 0ms

    ├ 测试数据 08：答案正确... 0ms

    ├ 测试数据 09：答案正确... 9ms

    ├ 测试数据 10：答案正确... 0ms

    ---|---|---|---|---|---|---|---|-

    Accepted 有效得分：100 有效耗时：9ms

  • 0
    @ 2008-10-06 03:20:28

    编译通过...

    ├ 测试数据 01：答案正确... 0ms

    ├ 测试数据 02：答案正确... 462ms

    ├ 测试数据 03：答案正确... 0ms

    ├ 测试数据 04：答案正确... 0ms

    ├ 测试数据 05：答案正确... 478ms

    ├ 测试数据 06：答案正确... 0ms

    ├ 测试数据 07：答案正确... 119ms

    ├ 测试数据 08：答案正确... 291ms

    ├ 测试数据 09：答案正确... 478ms

    ├ 测试数据 10：答案正确... 291ms

    ---|---|---|---|---|---|---|---|-

    Accepted 有效得分：100 有效耗时：2119ms

  • 0
    @ 2008-10-01 20:14:20

    编译通过...

    ├ 测试数据 01：答案正确... 0ms

    ├ 测试数据 02：答案正确... 134ms

    ├ 测试数据 03：答案正确... 0ms

    ├ 测试数据 04：答案正确... 0ms

    ├ 测试数据 05：答案正确... 181ms

    ├ 测试数据 06：答案正确... 0ms

    ├ 测试数据 07：答案正确... 9ms

    ├ 测试数据 08：答案正确... 88ms

    ├ 测试数据 09：答案正确... 103ms

    ├ 测试数据 10：答案正确... 56ms

    ---|---|---|---|---|---|---|---|-

    Accepted 有效得分：100 有效耗时：571ms

    暴力，

    vijos的数据就差耗时0了。。。

  • 0
    @ 2008-09-30 12:01:56

    编译通过...

    ├ 测试数据 01：答案正确... 0ms

    ├ 测试数据 02：答案正确... 0ms

    ├ 测试数据 03：答案正确... 0ms

    ├ 测试数据 04：答案正确... 0ms

    ├ 测试数据 05：答案正确... 0ms

    ├ 测试数据 06：答案正确... 0ms

    ├ 测试数据 07：答案正确... 0ms

    ├ 测试数据 08：答案正确... 0ms

    ├ 测试数据 09：答案正确... 0ms

    ├ 测试数据 10：答案正确... 0ms

    ---|---|---|---|---|---|---|---|-

    Accepted 有效得分：100 有效耗时：0ms

    AC的第100题好简单啊！！

    var

    i,j,n,k:longint;

    begin

    readln(n);

    repeat

    inc(i);

    for j:=1 to trunc(sqrt(i)) do

    if trunc(i/j)=(i/j) then inc(k,2);

    if trunc(sqrt(i))=sqrt(i) then dec(k);

    if k=n then

    begin writeln(i);halt;end;

    if i>20000 then begin

    writeln('NO SOLUTION');halt;end;

    k:=0;

    until false;

    end.

  • 0
    @ 2008-09-29 14:10:15

    老师才说的。。。^-^

  • 0
    @ 2008-09-23 21:21:23

    穷举！

  • 0
    @ 2008-09-23 20:35:43

    #include

    #include

    using namespace std;

    int prim(int a){

    int i=2,s=0,ans=1;

    while(i1)

    return ans*=2;

    else return ans;

    }

    main(){int k;

    int i,t=0;;

    cin>>k;

    if(k==1)

    {cout

  • 0
    @ 2008-09-11 22:32:56

    好难啊！

  • 0
    @ 2008-09-11 19:56:27

    编译通过...

    ├ 测试数据 01：答案正确... 0ms

    ├ 测试数据 02：答案正确... 0ms

    ├ 测试数据 03：答案正确... 0ms

    ├ 测试数据 04：答案正确... 0ms

    ├ 测试数据 05：答案正确... 0ms

    ├ 测试数据 06：答案正确... 0ms

    ├ 测试数据 07：答案正确... 0ms

    ├ 测试数据 08：答案正确... 0ms

    ├ 测试数据 09：答案正确... 0ms

    ├ 测试数据 10：答案正确... 0ms

    ---|---|---|---|---|---|---|---|-

    Accepted 有效得分：100 有效耗时：0ms

    过了，哈哈》》》》》》》》》》》》。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

  • 0
    @ 2008-09-09 10:19:07

    编译通过...

    ├ 测试数据 01：答案正确... 0ms

    ├ 测试数据 02：答案正确... 0ms

    ├ 测试数据 03：答案正确... 0ms

    ├ 测试数据 04：答案正确... 0ms

    ├ 测试数据 05：答案正确... 0ms

    ├ 测试数据 06：答案正确... 0ms

    ├ 测试数据 07：答案正确... 0ms

    ├ 测试数据 08：答案正确... 0ms

    ├ 测试数据 09：答案正确... 0ms

    ├ 测试数据 10：答案正确... 0ms

    类似筛选法求素数的方法。

  • 0
    @ 2008-09-05 20:23:39

    var

    m,k,i,j,t:longint;

    begin

    readln(k);

    if k=1 then begin write(1);halt;end;

    if k=2 then begin write(2);halt;end;

    if k=3 then begin write(4);halt;end;

    j:=2;

    for i:=6 to 20001 do

    begin

    t:=i;

    repeat

    if t mod j=0

    then begin t:=t div j;inc(m); end

    else inc(j);

    until t20000 then writeln('NO SOLUTION');

    if m=k then begin writeln(i);halt;end

    else m:=0;

    end;

    writeln('NO SOLUTION');

    end.

    var

    m,k,i,j,t:longint;

    begin

    readln(k);

    if k=1 then begin write(1);halt;end;

    if k=2 then begin write(2);halt;end;

    if k=3 then begin write(4);halt;end;

    j:=2;

    for i:=6 to 20001 do

    begin

    t:=i;

    repeat

    if t mod j=0

    then begin t:=t div j;inc(m); end

    else inc(j);

    until t20000 then writeln('NO SOLUTION');

    if m=k then begin writeln(i);halt;end

    else m:=0;

    end;

    writeln('NO SOLUTION');

    end.

    var

    m,k,i,j,t:longint;

    begin

    readln(k);

    if k=1 then begin write(1);halt;end;

    if k=2 then begin write(2);halt;end;

    if k=3 then begin write(4);halt;end;

    j:=2;

    for i:=6 to 20001 do

    begin

    t:=i;

    repeat

    if t mod j=0

    then begin t:=t div j;inc(m); end

    else inc(j);

    until t20000 then writeln('NO SOLUTION');

    if m=k then begin writeln(i);halt;end

    else m:=0;

    end;

    writeln('NO SOLUTION');

    end.

    var

    m,k,i,j,t:longint;

    begin

    readln(k);

    if k=1 then begin write(1);halt;end;

    if k=2 then begin write(2);halt;end;

    if k=3 then begin write(4);halt;end;

    j:=2;

    for i:=6 to 20001 do

    begin

    t:=i;

    repeat

    if t mod j=0

    then begin t:=t div j;inc(m); end

    else inc(j);

    until t20000 then writeln('NO SOLUTION');

    if m=k then begin writeln(i);halt;end

    else m:=0;

    end;

    writeln('NO SOLUTION');

    end.

    var

    m,k,i,j,t:longint;

    begin

    readln(k);

    if k=1 then begin write(1);halt;end;

    if k=2 then begin write(2);halt;end;

    if k=3 then begin write(4);halt;end;

    j:=2;

    for i:=6 to 20001 do

    begin

    t:=i;

    repeat

    if t mod j=0

    then begin t:=t div j;inc(m); end

    else inc(j);

    until t20000 then writeln('NO SOLUTION');

    if m=k then begin writeln(i);halt;end

    else m:=0;

    end;

    writeln('NO SOLUTION');

    end.

    var

    m,k,i,j,t:longint;

    begin

    readln(k);

    if k=1 then begin write(1);halt;end;

    if k=2 then begin write(2);halt;end;

    if k=3 then begin write(4);halt;end;

    j:=2;

    for i:=6 to 20001 do

    begin

    t:=i;

    repeat

    if t mod j=0

    then begin t:=t div j;inc(m); end

    else inc(j);

    until t20000 then writeln('NO SOLUTION');

    if m=k then begin writeln(i);halt;end

    else m:=0;

    end;

    writeln('NO SOLUTION');

    end.

    var

    m,k,i,j,t:longint;

    begin

    readln(k);

    if k=1 then begin write(1);halt;end;

    if k=2 then begin write(2);halt;end;

    if k=3 then begin write(4);halt;end;

    j:=2;

    for i:=6 to 20001 do

    begin

    t:=i;

    repeat

    if t mod j=0

    then begin t:=t div j;inc(m); end

    else inc(j);

    until t20000 then writeln('NO SOLUTION');

    if m=k then begin writeln(i);halt;end

    else m:=0;

    end;

    writeln('NO SOLUTION');

    end.

    var

    m,k,i,j,t:longint;

    begin

    readln(k);

    if k=1 then begin write(1);halt;end;

    if k=2 then begin write(2);halt;end;

    if k=3 then begin write(4);halt;end;

    j:=2;

    for i:=6 to 20001 do

    begin

    t:=i;

    repeat

    if t mod j=0

    then begin t:=t div j;inc(m); end

    else inc(j);

    until t20000 then writeln('NO SOLUTION');

    if m=k then begin writeln(i);halt;end

    else m:=0;

    end;

    writeln('NO SOLUTION');

    end.

    var

    m,k,i,j,t:longint;

    begin

    readln(k);

    if k=1 then begin write(1);halt;end;

    if k=2 then begin write(2);halt;end;

    if k=3 then begin write(4);halt;end;

    j:=2;

    for i:=6 to 20001 do

    begin

    t:=i;

    repeat

    if t mod j=0

    then begin t:=t div j;inc(m); end

    else inc(j);

    until t20000 then writeln('NO SOLUTION');

    if m=k then begin writeln(i);halt;end

    else m:=0;

    end;

    writeln('NO SOLUTION');

    end.

    var

    m,k,i,j,t:longint;

    begin

    readln(k);

    if k=1 then begin write(1);halt;end;

    if k=2 then begin write(2);halt;end;

    if k=3 then begin write(4);halt;end;

    j:=2;

    for i:=6 to 20001 do

    begin

    t:=i;

    repeat

    if t mod j=0

    then begin t:=t div j;inc(m); end

    else inc(j);

    until t20000 then writeln('NO SOLUTION');

    if m=k then begin writeln(i);halt;end

    else m:=0;

    end;

    writeln('NO SOLUTION');

    end.

    为什么？？？为什么？？？

    为什么？？？为什么？？？

    为什么？？？为什么？？？

    为什么？？？为什么？？？

    为什么？？？为什么？？？

    为什么？？？为什么？？？

    为什么？？？为什么？？？

    为什么？？？为什么？？？

    为什么？？？为什么？？？

    为什么？？？为什么？？？

    为什么？？？为什么？？？

    为什么？？？为什么？？？

    为什么？？？为什么？？？

  • 0
    @ 2008-09-04 20:10:46

    暴力的后果

    编译通过...

    ├ 测试数据 01：答案正确... 0ms

    ├ 测试数据 02：答案正确... 572ms

    ├ 测试数据 03：答案正确... 0ms

    ├ 测试数据 04：答案正确... 0ms

    ├ 测试数据 05：答案正确... 525ms

    ├ 测试数据 06：答案正确... 0ms

    ├ 测试数据 07：答案正确... 166ms

    ├ 测试数据 08：答案正确... 275ms

    ├ 测试数据 09：答案正确... 556ms

    ├ 测试数据 10：答案正确... 338ms

    ---|---|---|---|---|---|---|---|-

    Accepted 有效得分：100 有效耗时：2432ms

    不过还好A了~~

    呵呵~~

  • 0
    @ 2008-08-22 15:23:19

    var

    m:integer;

    begin

    read(m);

    case m of

    1:write(1);

    2:write(2);

    3:write(4);

    4:write(6);

    5:write(16);

    6:write(12);

    7:write(64);

    8:write(24);

    9:write(36);

    10:write(48);

    11:write(1024);

    12:write(60);

    13:write(4096);

    14:write(192);

    15:write(144);

    16:write(120);

    17:write('NO SOLUTION');

    18:write(180);

    19:write('NO SOLUTION');

    20:write(240);

    21:write(576);

    22:write(3072);

    23:write('NO SOLUTION');

    24:write(360);

    25:write(1296);

    26:write(12288);

    27:write(900);

    28:write(960);

    29:write('NO SOLUTION');

    30:write(720);

    31:write('NO SOLUTION');

    32:write(840);

    33:write(9216);

    34:write('NO SOLUTION');

    35:write(5184);

    36:write(1260);

    37:write('NO SOLUTION');

    38:write('NO SOLUTION');

    39:write('NO SOLUTION');

    40:write(1680);

    41:write('NO SOLUTION');

    42:write(2880);

    43:write('NO SOLUTION');

    44:write(15360);

    45:write(3600);

    46:write('NO SOLUTION');

    47:write('NO SOLUTION');

    48:write(2520);

    49:write('NO SOLUTION');

    50:write(6480);

    51:write('NO SOLUTION');

    52:write('NO SOLUTION');

    53:write('NO SOLUTION');

    54:write(6300);

    55:write('NO SOLUTION');

    56:write(6720);

    57:write('NO SOLUTION');

    58:write('NO SOLUTION');

    59:write('NO SOLUTION');

    60:write(5040);

    61:write('NO SOLUTION');

    62:write('NO SOLUTION');

    63:write(14400);

    64:write(7560);

    65:write('NO SOLUTION');

    66:write('NO SOLUTION');

    67:write('NO SOLUTION');

    68:write('NO SOLUTION');

    69:write('NO SOLUTION');

    70:write('NO SOLUTION');

    71:write('NO SOLUTION');

    72:write(10080);

    73:write('NO SOLUTION');

    74:write('NO SOLUTION');

    75:write('NO SOLUTION');

    76:write('NO SOLUTION');

    77:write('NO SOLUTION');

    78:write('NO SOLUTION');

    79:write('NO SOLUTION');

    80:write(15120);

    end;

    end.

    很暴力!穷举!

    一次AC!!!

  • 0
    @ 2008-08-22 14:31:44

    比A+B多几行，为什么这是难度2？？？

分解因式

信息

ID
1229
难度
4
分类
其他 | 数学 点击显示
标签
(无)
递交数
2036
已通过
939
通过率
46%
被复制
4
上传者
  1. 关于
  2. 联系我们
  3. 隐私
  4. 服务条款
  5. 版权申诉
  6. Language
  1. © 2005 - 2023 Vijos.org
  2. uibuild-2f1065f
  3. 沪ICP备14040537号-1