279 条题解

  • 0
    @ 2008-09-25 19:53:26

    编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

    我看见海平面上升了~~~~~~一次AC

  • 0
    @ 2008-09-24 22:22:58

    只有40分

    var

    a:array[1..13] of integer;

    i,s,q,g:integer;

    begin

    for i:=1 to 12 do readln(a[i]);

    for i:=1 to 12 do

    begin

    q:=300;

    s:=q-a[i]+s;

    if (s>100) or (s=100) then begin s:=s-100*(s div 100); g:=g+(s div 100); end;

    if (s+300

  • 0
    @ 2008-09-22 18:17:11

    #include

    #include

    #include

    using namespace std;

    int main()

    {int max,t,i,save,y;

    for(i=1;i

  • 0
    @ 2008-09-22 18:05:51

    #include

    #include

    #include

    using namespace std;

    int main()

    {

    int t,i,max=0,save=0,y;

    for(i=1;i

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

    编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

    program chuxu;

    var

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

    chu,mo,cun,i:longint;

    begin

    for i:=1 to 12 do readln(a[i]);

    chu:=0; mo:=0; cun:=0;

    for i:=1 to 12 do

    begin

    chu:=chu+300; mo:=chu-a[i]; if mo0) then

    begin cun:=cun+(mo div 100)*100; mo:=mo mod 100; end;

    chu:=mo;

    end;

    if mo

  • 0
    @ 2008-09-21 13:58:16

    #include

    int main(){

    int i;

    long save=0,now=0,cost;

    for (i=1;i

  • 0
    @ 2008-09-20 20:31:10

    编译通过...

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

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

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

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

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

    ├ 测试数据 06:答案错误...程序输出比正确答案长

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

    ├ 测试数据 08:答案错误...程序输出比正确答案长

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

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

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

    Unaccepted 有效得分:80 有效耗时:0ms

    var

    a:array[0..13] of longint;

    i,j,x,y,z,n:longint;

    begin

    for i:=1 to 12 do

    readln(a[i]);

    for i:=1 to 12 do begin

    n:=n+300;

    n:=n-a[i];

    if n0 then begin x:=x+y;n:=(n-y*100); end;

    end;

    if z1 then writeln(n+(x*120))

    end.

    ?????????????????????????????????

  • 0
    @ 2008-09-20 12:07:27

    var i,sy,ys,ck:longint;

    begin

    for i:=1 to 12 do

    begin

    sy:=sy+300;

    read(ys);

    sy:=sy-ys;

    if sy

  • 0
    @ 2008-09-18 20:22:46

    var

    s,m,n,i,t,j:integer;

    a:array[1..12] of integer;

    b:array[1..12] of integer;

    f:boolean;

    begin

    s:=0;n:=300;t:=0;j:=0;f:=false;

    for i:=1 to 12 do begin

    readln(m);

    inc(t);

    if n+j-m

  • 0
    @ 2008-09-17 18:56:36

    编译通过...

    ├ 测试数据 01:答案错误...程序输出比正确答案长

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

    ├ 测试数据 03:答案错误...程序输出比正确答案长

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

    ├ 测试数据 05:答案错误...程序输出比正确答案长

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

    ├ 测试数据 07:答案错误...程序输出比正确答案长

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

    ├ 测试数据 09:答案错误...程序输出比正确答案长

    ├ 测试数据 10:答案错误...程序输出比正确答案长

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

    Unaccepted 有效得分:40 有效耗时:0ms

  • 0
    @ 2008-09-13 14:50:09

    #include

    using namespace std;

    const int money=300;

    int main()

    {

    bool check;

    int a[12];

    int i,j,n,m;

    for(i=0;i>a[i];

    }

    n=0;

    m=0;

    check=true;

    for(i=0;i

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

    唉,晕,这么简单的题作了2个小时记得12月的要夹在后面

    我的代码,很丑

    main()

    {

    long s,i,d,e,j=0,m=0,flag=0,f,M;

    for(i=1;i

  • 0
    @ 2008-09-04 20:44:09

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

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

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

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

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

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

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

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

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

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

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

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

    最后 要用截尾,*1.2 后是一个小数

    一直没发现 WA了2次 555`\``

  • 0
    @ 2008-08-30 21:17:03

    太简单了,一次性AC

  • 0
    @ 2008-08-29 16:16:05

    简单

  • 0
    @ 2008-08-21 15:59:57

    编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

    var i,j,n,p,s:integer; sum:real;

    begin

    s:=0;p:=0;

    for i:=1 to 12 do

    begin

    readln(n);

    s:=s+300-n;

    if s

  • 0
    @ 2008-08-19 16:46:12

    编译通过...

    ├ 测试数据 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-08-17 09:59:56

    呵呵,有进步半年前每通过的,今天一编就Ac

  • 0
    @ 2008-08-11 10:46:55

    ├ 测试数据 01:答案错误...程序输出比正确答案长

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

    ├ 测试数据 03:答案错误...程序输出比正确答案长

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

    ├ 测试数据 05:答案错误...程序输出比正确答案长

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

    ├ 测试数据 07:答案错误...程序输出比正确答案长

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

    ├ 测试数据 09:答案错误...程序输出比正确答案长

    ├ 测试数据 10:答案错误...程序输出比正确答案长

    ?????????????????????????????

  • 0
    @ 2007-11-10 21:29:17

    百分之九百不爱这道题....

    怎么不算尽12月的利息了?..唉!..

信息

ID
1096
难度
5
分类
模拟 点击显示
标签
递交数
15974
已通过
5661
通过率
35%
被复制
35
上传者