help me

var m,s,t,long,i:longint;

begin

readln(m,s,t);

repeat

m:=m-10;

long:=long+60;

inc(i);

until m4) and (i+1t) then begin inc(i); long:=long+60; inc(i); end;

repeat

long:=long+17;

inc(i);

until (t=i) or (long>=s);

if long>=s then

begin

writeln('Yes');

writeln(i);

end

else

begin

writeln('No');

writeln(long);

end;

end.

知道的+QQ:714332048

1 条评论

  • 1

信息

ID
1431
难度
5
分类
动态规划 | 背包 点击显示
标签
递交数
6160
已通过
1919
通过率
31%
被复制
22
上传者