为什么第八个点没过??

var

x,j,m,s,t:longint;

begin

readln(m,s,t);

x:=t; j:=s;

while t>0 do

begin

t:=t-1;

if m>=10 then

begin s:=s-60;m:=m-10; end

else

if ((s

2 条评论

  • @ 2014-08-05 21:15:36

    第八个点没过+1!!!!
    program p1431;
    var a:array[0..300010] of longint;
    s,m,t:longint;
    //
    procedure init;
    begin
    read(m,s,t);
    end;
    //
    procedure main;
    var i,k:longint;
    begin
    k:=1;
    for i:=1 to t do
    if m>=10 then begin a[i]:=a[i-k]+60;k:=1;m:=m-10;end
    else begin inc(k);inc(m,4);a[i]:=a[i-1]+17;end;
    end;
    //
    procedure print;
    var i:longint;
    begin
    if a[t]>=s then
    begin
    i:=t;while a[i]>=s do dec(i);writeln('Yes');write(i+1);
    end
    else begin writeln('No');write(a[t]);end;
    end;
    //
    begin
    assign(input,'p1431.in');assign(output,'p1431.out');
    reset(input);rewrite(output);
    init;
    main;
    print;
    close(output);
    end.

  • @ 2013-01-31 20:57:37

    12

  • 1

信息

ID
1431
难度
5
分类
动态规划 | 背包 点击显示
标签
递交数
6159
已通过
1918
通过率
31%
被复制
22
上传者