127 条题解

  • 0
    @ 2009-11-02 19:25:59

    OTZ...居然有多个脚注。。。

    菜了。。。。。。。

  • 0
    @ 2009-11-02 07:32:35

    细心!一定要细心。。。

    我交了12遍。。。

    同一行可能有多个脚注!!!

  • 0
    @ 2009-10-28 08:20:11

    ....同一行可能有多个脚注,o(︶︿︶)o 唉,卡了好几次

  • 0
    @ 2009-10-08 11:16:49

    编译通过...

    ├ 测试数据 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-10-05 13:30:58

    基础题..................

    program ex;

    var

    a:array[1..1000] of longint ;

    n,k,f,x,y,i,nowk,ans:longint ;

    BEGIN

    read(n,k,f) ;

    for i := 1 to n do

    a[i] := 1 ;

    for i := 1 to f do

    begin

    read(x,y) ;

    a[x] := y + a[x] ;

    end ;

    nowk := k ;

    ans := 1 ;

    for i := 1 to n do

    begin

    if nowk < a[i] then

    begin

    nowk := k ;

    inc(ans) ;

    end ;

    dec(nowk,a[i]) ;

    end ;

    writeln(ans) ;

    END .

  • 0
    @ 2009-09-21 19:12:07

    一行可能有多个脚注@_@ 我又沙茶了.......

    BS下我自己 最近总犯int(tan(89.770819))的错误........

    最后剩的行数要再加一页.....

  • 0
    @ 2009-08-31 21:07:25

    其实我不想cheat,不过实在想不出为什么第3组数据会错,答案是4我确实5。无语ing

  • 0
    @ 2009-08-31 10:47:29

    这题的意思是啥啊,我的语文太烂了。。

  • 0
    @ 2009-08-29 17:54:09

    虽说是水题,交了三次O__O"…

    脚注紧跟脚注标记所在行,这样肯定是最优的。

    那么一行行扫描下来,如果当前行(加上脚注)加到当前页超过的话就新建一页。

    注意如果最后剩余行数>0,还要新建一页。

  • 0
    @ 2009-08-26 16:17:11

    [red]这题好纠结!

  • 0
    @ 2009-08-25 13:24:15

    编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

    for i:=1 to n do

    begin

    if a[i]>o then begin o:=k;p:=p+1;end;

    o:=o-a[i];

    end;

    水水~~

  • 0
    @ 2009-08-18 15:40:19

    我竟然傻傻地写了个字符串处理

  • 0
    @ 2009-08-16 11:21:35

    题目~

    没看懂

  • 0
    @ 2009-08-14 21:19:15

    R1429798 Accepted 100 From yangbei-

     P1203 CPP Vivid Puppy 2009-8-14 21:15:01

    我是怀着无比喜爱柯南的心情作的,所以一遍AC了.........

  • 0
    @ 2009-08-12 13:52:04

    好恶心啊.......

    一行可能有多个脚注.......

  • 0
    @ 2009-08-11 22:28:17

    这题的意思是啥啊,我的语文太烂了。。。

  • 0
    @ 2009-07-29 00:15:20

    我晕,我居然AC这种题目到一百。。。。

    不过还得说

    AC100 纪念!!!

  • 0
    @ 2009-07-24 14:27:03

    学编程,语文也是关键啊 O(∩_∩)O哈哈~ 1次AC

    超简单水题,只要看懂后……

    编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

    本菜不才,打了30行,55555555555……

    #include

    using namespace std;

    long n,k,f,length[1010];

    int main()

    {

    long a,b,i,carry,ans;

    cin>>n>>k>>f;

    for(i=1;ia>>b;

    length[a]+=b;

    }

    ans=1;

    carry=0;

    for(i=1;ik)

    {

    ans++;

    carry=length[i];

    }

    else

    carry+=length[i];

    }

    cout

  • 0
    @ 2009-07-23 11:18:48

    var

    num:array[1..1000]of longint;

    n,k,f,x,y,i,j,tmp,sum:longint;

    begin

    readln(n,k);

    for i:=1 to n do num[i]:=1;

    readln(f);

    for i:=1 to f do

    begin

    readln(x,y);

    inc(num[x],y);

    end;

    tmp:=0;

    sum:=0;

    for i:=1 to n do

    begin

    inc(tmp,num[i]);

    if tmp=k then

    begin

    inc(sum);

    tmp:=0;

    end;

    if tmp>k then

    begin

    inc(sum);

    tmp:=num[i];

    end;

    end;

    writeln(sum);

    end.

    帮我看一下哪里错了。。。囧RZ

  • 0
    @ 2009-07-18 19:10:38

    var n,m,i,j,k,lin,len:longint;

       x:array[0..1003,0..1003] of longint;

       f:array[0..1003] of longint;

    begin

    filldword(f,sizeof(f)shr 2,9999999);

    filldword(x,sizeof(x)shr 2,1);

    readln(n,k);

    readln(m);

    for i:=1 to m do

    begin

    readln(lin,len);

    x[lin,lin]:=x[lin,lin]+len;

    end;

    x[0,0]:=0;

    for j:=1 to n-1 do

    for i:=0 to n-j do

    x:=x+x;

    f[0]:=0;

    for i:=2 to n do

    for j:=1 to i do

    if x[j,i]f[j-1]+1 then

    f[i]:=f[j-1]+1;

    writeln(f[n]);

    end.

信息

ID
1203
难度
4
分类
贪心 点击显示
标签
递交数
2180
已通过
859
通过率
39%
被复制
7
上传者