/ Vijos / 题库 / 分解因式 /

题解

139 条题解

  • 0
    @ 2009-09-27 09:18:38

    编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

    var

    n:longint;

    begin

    readln(n);

    if n=1then writeln(1);

    if n=2then writeln(2);

    if n=3then writeln(4);

    if n=4then writeln(6);

    if n=5then writeln(16);

    if n=6then writeln(12);

    if n=7then writeln(64);

    if n=8then writeln(24);

    if n=9then writeln(36);

    if n=10then writeln(48);

    if n=11then writeln(1024);

    if n=12then writeln(60);

    if n=13then writeln(4096);

    if n=14then writeln(192);

    if n=15then writeln(144);

    if n=16then writeln(120);

    if n=17then writeln('NO SOLUTION');

    if n=18then writeln(180);

    if n=19then writeln('NO SOLUTION');

    if n=20then writeln(240);

    if n=21then writeln(576);

    if n=22then writeln(3072);

    if n=23then writeln('NO SOLUTION');

    if n=24then writeln(360);

    if n=25then writeln(1296);

    if n=26then writeln(12288);

    if n=27then writeln(900);

    if n=28then writeln(960);

    if n=29then writeln('NO SOLUTION');

    if n=30then writeln(720);

    if n=31then writeln('NO SOLUTION');

    if n=32then writeln(840);

    if n=33then writeln(9216);

    if n=34then writeln('NO SOLUTION');

    if n=35then writeln(5184);

    if n=36then writeln(1260);

    if n=37then writeln('NO SOLUTION');

    if n=38then writeln('NO SOLUTION');

    if n=39then writeln('NO SOLUTION');

    if n=40then writeln(1680);

    if n=41then writeln('NO SOLUTION');

    if n=42then writeln(2880);

    if n=43then writeln('NO SOLUTION');

    if n=44then writeln(15360);

    if n=45then writeln(3600);

    if n=46then writeln('NO SOLUTION');

    if n=47then writeln('NO SOLUTION');

    if n=48then writeln(2520);

    if n=49then writeln('NO SOLUTION');

    if n=50then writeln(6480);

    if n=51then writeln('NO SOLUTION');

    if n=52then writeln('NO SOLUTION');

    if n=53then writeln('NO SOLUTION');

    if n=54then writeln(6300);

    if n=55then writeln('NO SOLUTION');

    if n=56then writeln(6720);

    if n=57then writeln('NO SOLUTION');

    if n=58then writeln('NO SOLUTION');

    if n=59then writeln('NO SOLUTION');

    if n=60then writeln(5040);

    if n=61then writeln('NO SOLUTION');

    if n=62then writeln('NO SOLUTION');

    if n=63then writeln(14400);

    if n=64then writeln(7560);

    if n=65then writeln('NO SOLUTION');

    if n=66then writeln('NO SOLUTION');

    if n=67then writeln('NO SOLUTION');

    if n=68then writeln('NO SOLUTION');

    if n=69then writeln('NO SOLUTION');

    if n=70then writeln('NO SOLUTION');

    if n=71then writeln('NO SOLUTION');

    if n=72then writeln(10080);

    if n=73then writeln('NO SOLUTION');

    if n=74then writeln('NO SOLUTION');

    if n=75then writeln('NO SOLUTION');

    if n=76then writeln('NO SOLUTION');

    if n=77then writeln('NO SOLUTION');

    if n=78then writeln('NO SOLUTION');

    if n=79then writeln('NO SOLUTION');

    if n=80then writeln(15120);

    end.

  • 0
    @ 2009-09-20 16:32:13

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

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

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

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

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

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

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

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

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

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

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

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

    #include

    main()

    {

    int k;

    int p,r;

    int a,p0,d,i;

    float f;

    p0=0;

    scanf("%d",&k);

    for (p=1;p

  • 0
    @ 2009-09-20 16:14:17

    #include "stdio.h"

    int main()

    {

    　　int i,j,k,x[20001]={0};

    　　scanf("%d",&k);

    　　for(i=1;i

  • 0
    @ 2009-09-20 16:13:17

    编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

    #include

    int main()

    {

    int k;

    int i,r,p,p0,d,j;

    float f;

    scanf("%d",&k);

    p0 = 0;

    for(p = 1;p < 20001;++p){

    d = 0;

    j = sqrt(p);

    for(r = 1;r 0){

    printf("%d",p0);

    }

    }

  • 0
    @ 2009-09-20 01:50:13

    编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

    哈哈，在前人的基础上优化的穷举，用时少了这么多，一次AC。

    难度为2？？？？

    纪念第100题 ^_^

    var

    n,i,j,sum:integer;

    begin

    readln(n);

    for i:=1 to 20000 do begin

    sum:=0;

    for j:=1 to trunc(sqrt(i)) do if i mod j=0 then inc(sum,2);

    if j*j=i then dec(sum);

    if sum=n then begin

    writeln(i);

    halt;

    end;

    end;

    writeln('NO SOLUTION');

    end.

  • 0
    @ 2009-09-04 22:36:30

    编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

    可能比较稀有的0ms

  • 0
    @ 2009-08-30 20:47:15

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

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

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

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

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

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

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

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

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

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

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

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

    var k,i:integer;

    function f(x:integer):integer;

    var j:integer;

    begin

    f:=1;

    for j:=1 to x div 2 do

    begin

    if x mod j=0 then f:=f+1;

    end;

    end;

    begin

    readln(k);

    for i:=1 to 20000 do

    begin

    if f(i)=k then

    begin

    writeln(i);

    halt;

    end;

    end;

    writeln('NO SOLUTION');

    end.

  • 0
    @ 2009-08-25 21:39:42

    穷举的结果(puppy)

    编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

    还是puppy快,我看下面有人都6000ms多....

  • 0
    @ 2009-08-20 20:09:41

    program bh;

    var m,n,i,j,k:longint;s:qword;a,b:array[0..50000] of longint;

    begin

    readln(n,m);

    for i:= m+1 to n do

    　　begin

    　　j:=i;k:=2;

    　　while j>1 do

    　　begin

    　　　　while (j mod k =0)and(j>1) do

    　　 begin inc(a[k]); j:=j div k;end;

    　　 inc(k);

    　　end;

    　　end;

    for i:= 2 to m do

    　　begin

    　　j:=i;k:=2;

    　　while j>1 do

    　　begin

    　　　　while (j mod k =0)and(j>1) do

    　　 begin inc(b[k]); j:=j div k; end;

    　　 inc(k);

    　　end;

    　　end; s:=0;

    for i:=1 to n do

    if a[i]-b[i]>0 then inc(s);

    write(s);

    　　 end.

  • 0
    @ 2009-08-14 17:04:46

    直接枚举

    如此看来便成了水题

  • 0
    @ 2009-08-13 19:55:21

    就因为一句话:

    存在不大于20000的解

    这道题有还有一点点难度成了水题

    直接枚举

    秒杀

  • 0
    @ 2009-08-04 15:06:57

    编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

    找I的因子个数的函数:

    function tot(i:longint):longint;

    var j,t:longint;

    begin

    t:=0;

    if i = 1 then exit(1);

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

    if i mod j = 0 then

    if ( i div j ) = j then t:=t+1

    else t:=t+2;

    exit(t);

    end;

  • 0
    @ 2009-08-02 22:17:03

    #include

    using namespace std;

    int main()

    {

    int i,j,k,x[20001]={0};

    cin>>k;

    for(i=1;i

  • 0
    @ 2009-08-02 20:51:07

    编译通过...

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

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

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

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

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

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

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

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

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

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

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

    Unaccepted 有效得分：90 有效耗时：2250ms

    program p1229;

    var f:array[1..20000] of longint;

    i,j,k,n:longint;

    begin

    readln(k);

    fillchar(f,sizeof(f),0);

    for i:=1 to 20000 do

    begin

    for j:=1 to i do

    if (i mod j=0) then inc(f[i]);

    if f[i]=k then begin

    writeln(i);

    exit;

    end;

    end ;

    writeln('NO SOLUTION') ;

    END.

    编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

    program p1229;

    var f:array[1..20000] of longint;

    i,j,k,n:longint;

    begin

    readln(k);

    fillchar(f,sizeof(f),0);

    for i:=1 to 20000 do

    begin

    for j:=1 to i do

    if (i mod j=0) then inc(f[i]);

    if f[i]=k then begin

    writeln(i);

    exit;

    end;

    end ;

    writeln('NO SOLUTION') ;

    END.

    Flag 　　 Accepted

    题号 　　P1229

    类型(?) 　　其它

    通过 　　1547人

    提交 　　3261次

    通过率 　　47%

    难度 　　2

    有什么差别!!!!!!!

  • 0
    @ 2009-08-02 20:05:15

    var k,n,a:longint;

    function f(n:longint):longint;

    var a:longint;

    begin

    f:=1;

    for a:=1 to n div 2 do

    if n mod a=0 then f:=f+1;

    end;

    begin

    read(k);

    for n:=1 to 20000 do

    if f(n)=k then

    begin

    write(n);

    halt;

    end;

    write('NO SOLUTION');

    end.

  • 0
    @ 2009-07-31 16:09:00

    编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

    找规律啊~

  • 0
    @ 2009-07-27 16:17:38

    编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

    var k,n,a:longint;

    function f(n:longint):longint;

    var a:longint;

    begin

    f:=1;

    for a:=1 to n div 2 do

    if n mod a=0 then f:=f+1;

    end;

    begin

    read(k);

    for n:=1 to 20000 do

    if f(n)=k then

    begin

    write(n);

    halt;

    end;

    write('NO SOLUTION');

    end.

  • 0
    @ 2009-07-26 13:27:53

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

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

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

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

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

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

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

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

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

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

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

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

    农夫山泉有点甜，好水喝出健康来

  • 0
    @ 2009-07-23 08:47:58
  • 0
    @ 2009-07-21 14:21:57

    program das;

    var k,i,s,j:longint;

    begin

    read(k);

    for i:=1 to 20000 do

    begin

    s:=0;

    for j:=1 to i do if i mod j=0 then inc(s);

    if s=k then begin write(i);exit;end;

    end;

    write('NO SOLUTION');

    end.

    农夫山泉

    好。。。。好。。。。。好。。。。。水。。。。

分解因式

信息

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