?? ac1117.pas
字號:
program ural1117;
var
a,b,c,d,m,ans:int64;
begin
readln(a,b);
if a>b then begin c:=a;a:=b;b:=c;end;
ans:=0;m:=4;
repeat
c:=a-a mod m;d:=b-b mod m;
if (d=c) and (a mod m>0) then break;
inc(ans,(d-c) div m*2);
if a mod m=0 then inc(ans);
if b mod m=0 then dec(ans);
m:=m*2;
until false;
writeln(ans);
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -