📄 ac1088.pas
字号:
program ural1088;
var
d,e,f,h,s,i:byte;
dp,ep,m:longint;
function max(a,b:byte):byte;
begin
if a>b then max:=a else max:=b;
end;
begin
readln(d,e,f,dp,ep,h);
s:=(f-d)+(f-e);
m:=power(2,f-1);
for i:=1 to f-max(d,e) do begin
if (dp>m)<>(ep>m) then break;
if dp>m then begin
dec(dp,m);
dec(ep,m);
end;
dec(s,2);
m:=m div 2;
end;
if s<=h then writeln('YES') else writeln('NO');
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -