- 守望者的逃离
- 2012-11-28 16:41:35 @
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 条评论
-
一方T行 LV 10 @ 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