求神牛帮忙找错!!6.7.8点pascal没过

├ 测试数据 06:答案错误... (0ms, 580KB)

├ 测试数据 07:答案错误... (0ms, 580KB)

├ 测试数据 08:答案错误... (0ms, 580KB)

Unaccepted / 70 / 0ms / 580KB

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 条评论

  • @ 2012-10-27 10:38:49

    只剩下第八个点了…………

    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

  • @ 2012-10-27 10:18:13

    5.8未过……

    var

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

    f:boolean;

    begin

    readln(m,s,t); x:=t; j:=s; f:=true;

    while t>0 do

    begin

    t:=t-1;

    if m>=10 then

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

    else

    if ((s

  • 1

信息

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