回帖：program a3(input,output);
var
a,b:array[0..10000]of longint;
m,s,t,i,j:longint;
function max(a,b,c:longint):longint;
var
k:longint;
begin
if a>b then k:=a else k:=b;
if k=s then
begin
writeln('Yes');
writeln(i);
close(input);
close(output);
halt;
end;
end;
for j:=10 to m do
begin
b:=max(a+17,a,a+60);
if b>=s then
begin
writeln('Yes');
writeln(i);
close(input);
close(output);
halt;
end;
end;
a:=b;
end;
writeln('No');
writeln(a);
close(input);
close(output);
end.
得了80分