为啥不购买地精飞艇呢？

亦或是找个复仇天神扛着守望者出去。。。

——反正那是个大大的影子。。。。。。。。。。。

Program Escape;

Var

m: Word;

a, b, i, s, t: dWord;

Begin

Read(m, s, t); a:=0; b:=0;

For i:=1 To t Do Begin

If ma+17 Then a:=b Else Inc(a, 17);

If a>=s Then

Begin WriteLn('Yes'); Write(i); Halt End

End;

WriteLn('No'); Write(a)

End.

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

膜拜大牛,ORZ

var

san,you:array[1..300000] of longint;

i,j,k,m,s,t,ss,max:longint;

begin

readln(m,s,t);

i:=0;ss:=0;

repeat

i:=i+1;

if m>=10 then begin ss:=ss+60;san[i]:=ss;m:=m-10;end

else begin m:=m+4;san[i]:=ss;end;

until i>t;

for i:=1 to t do

begin

if san[i]>17+you then you[i]:=san[i] else you[i]:=17+you;

end;

if you[t]

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

include

using namespace std;

int M,S,T;

int main()

{

cin>>M>>S>>T;

int time,distance;

time=distance=0;

while(time=S) break;

time++;

if (M>=10) {

distance+=60;

M-=10;

continue;

}

if ((T-time

当时考题是这样的吗？……

出题的人玩WAR3玩疯啦。。。

#include "stdio.h"

int mp,s;

void run()

{

s-=17;

}

int shun(int i)

{

if(mp

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

var m,s,t:longint;

mp,ls,lt:longint;

begin

read(m,s,t);

mp:=m; //mp=剩余魔法值

ls:=s; //ls=剩余路程

lt:=t; //lt=剩余时间

while (mp div 10>0)and(lt>0)and(ls>0) do

//如果没到终点，时间有剩，能闪先闪

begin

ls:=ls-60;

mp:=mp-10;

lt:=lt-1;

end;

if ls0)and(ls>0) then // 如果时间有剩且没到终点

begin

while (mp+(lt-1)*4>=10)and(ls>34) do

//判断是否有足够时间来休息和闪

begin

if (mp0)and(ls>0) do

// 如果mp超过10，没到终点，还有时间，则闪

begin

ls:=ls-60;

mp:=mp-10;

lt:=lt-1;

end;

if ls0)and(ls>0) do

//闪完后跑步

begin

lt:=lt-1;

ls:=ls-17;

end;

if ls

输出都搞了我15行........

思路很简单.........先拼命闪...........然后再做一次跑的........当然要在闪基础上跑= =跑也要跑的帅

本题最无脑的解法——枚举闪烁次数！！

PROGRAM SWZDTL;

VAR

M,S,T,I,X,Y,ZD,ZX,P:LONGINT;

BEGIN

READ(M,S,T);

ZD:=0; ZX:=MAXLONGINT;

FOR I:=0 TO (S DIV 60)+1 DO

BEGIN

X:=0; Y:=0;

IF I*10>M THEN

BEGIN

X:=(I*10-M) DIV 4;

IF (I*10-M) MOD 4>0 THEN INC(X);

END;

INC(X,I);

IF X>T THEN CONTINUE;

Y:=I*60;

IF Y+17*(T-X)>=S THEN

BEGIN

IF Y0 THEN INC(X);

END;

IF X

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

想知道怎么作吗，我不告诉你。。。

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

有可能鄙人的想法很怪吧。

也不知道是用什么，诸如贪心、模拟、枚举、动规似乎在程序里都有体现，一副混血儿的脸孔……

var s:array[0..1,0..1] of longint; //数组开这么点就行了，用数据

f:array[0..1] of longint; 模拟一下就可以看出来的啦

m,sum,t,i:longint; s表示魔法 s表示距离

function max(a,b:longint):longint;

begin

if a>b then exit(a)

else exit(b);

end;

begin

readln(m,sum,t);

s[0,0]:=m;

for i:=1 to t do

begin

if s[(i-1)div 2,0]>9 then begin

f[i div 2]:=f[(i-1)div 2]+60;

s[i div 2,0]:=s[(i-1)div 2,0]-10;

s[i div 2,1]:=max(s[(i-1) div 2,1]+17,f[i div 2]);

end

else begin

f[i div 2]:=f[(i-1) div 2];

s[i div 2,0]:=s[(i-1) div 2,0]+4;

s[i div 2,1]:=s[(i-1) div 2,1]+17;

end;

if s[i div 2,1]>=sum then begin

writeln('Yes');

writeln(i);

halt;

end;

end;

writeln('No');

writeln(s[t div 2,1]);

end.

var i,j,k,n,m,t,s:longint;

begin

readln(m,s,t); k:=0; j:=0;

for i:=t downto 1 do

begin

inc(j);

if m>=10 then begin inc(k,60); dec(m,10); end

else

begin

if (m

我把No 打成了 NO 就一直显示输出长度比标准答案长。。。。4次全60 本来应该1次AC的。。。。。。

DP

严厉打击伪AC程序！！！！

严重鄙视伪AC程序提交者！！！！

严惩道德败坏的伪AC者！！！！

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

顺便提供AC程序：

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

function max(z,y:longint):longint;

begin

if z>y then

exit(z)

else

exit(y);

end;

var a:array[0..300000,1..2] of longint;

i,j,s,t,m,k:longint;

begin

readln(m,s,t);

k:=m div 10;

m:=m mod 10;

for i:=1 to k do

a:=i*60;

for i:=k+1 to t do

begin

if m

守望者把你叫了过来，让你编了这道程序，你用了10分钟1次AC,正得意忘形时，发现周围都是水……岛已经沉没……

如果m>=10,肯定花一秒做闪烁划算;当m7时,花7秒跑120m划算;当m