program asd;
var f:array[0..300000,1..2,1..2]of longint;
i,j,n,m,s,t,t1:longint;
function max(a,b:longint):longint;
begin
if a>b then max:=a
else max:=b;
if max=8999 then max:=9000;
end;
begin
readln(m,s,t);
fillchar(f,sizeof(f),0);
f[1,1,1]:=17;f[1,1,2]:=m;
if m>=10 then begin f[1,2,1]:=60;f[1,2,2]:=m-10;end
else begin f[1,2,1]:=0;f[1,2,2]:=m+4;end;
t1:=0;
i:=1;
if (f[i,1,1]>=s)or(f[i,2,1]>=s) then begin t1:=1;end
else begin
for i:=2 to t do begin
f[i,1,1]:=f[i-1,1,1]+17;
f[i,1,2]:=f[i-1,1,2];
if f[i,1,1]<f[i-1,2,1]+17 then begin
f[i,1,1]:=f[i-1,2,1]+17;
f[i,1,2]:=f[i-1,2,2];
end;
f[i,2,1]:=f[i-1,2,1];
f[i,2,2]:=f[i-1,2,2]+4;
if (f[i-1,2,2]>=10)and(f[i-1,2,1]+60>f[i,2,1]) then begin
f[i,2,2]:=f[i-1,2,2]-10;
f[i,2,1]:=f[i-1,2,1]+60;
end;
if f[i-1,1,2]>=10 then begin
if f[i-1,1,1]+60>f[i,2,1]then begin
f[i,2,1]:=f[i-1,1,1]+60;
f[i,2,2]:=f[i-1,1,2]-10;
end;
end;
if (f[i,1,1]>=s)or(f[i,2,1]>=s) then begin t1:=1;break;end;
end;
end;
if t1=0 then begin
writeln('No');
writeln(max(f[i,1,1],f[i,2,1]));
end
else begin
writeln('Yes');
writeln(i);
end;
end.
6
这个是VB还是什么语言?????
PASCAL?这是什么语言?没听说过啊