lishuhanji 2013-08-25 21:31:00
点我顶贴
收藏
删除
var
m,s,t,i,rp:longint;
a:array[0..30000] of longint;
begin
a[0]:=0;
read(m,s,t);
for i:=1 to t do begin
if m>9 then begin a[i]:=a[i-1]+60;m:=m-10;end
else begin a[i]:=a[i-1];m:=m+4;end;
end;
for i:=1 to t do begin
if a[i]<a[i-1]+17 then a[i]:=a[i-1]+17;
if a[i]>=s then begin writeln('Yes');writeln(i);
exit;
end;end;
writeln('No');writeln(a[t]);
end.