?? ac1302.pas
字號:
program ural1302;
var
a,b,ra,rb,dl,dr,h:longint;
da,db:boolean;
procedure calrd(var n,r:longint;var d:boolean);
begin
r:=trunc(sqrt(n-1));
d:=odd(n-r*r);
end;
begin
read(a,b);if a>b then begin h:=a;a:=b;b:=h;end;
calrd(a,ra,da);calrd(b,rb,db);
if ra=rb then begin
writeln(b-a);
halt;
end;
dl:=(ra+rb)*(rb-ra);
dr:=(ra+rb+2)*(rb-ra);
h:=(rb-ra)*2;
if da then begin inc(dl);dec(dr);dec(h);end;
if db then begin dec(dl);inc(dr);inc(h);end;
if b<a+dl then
writeln(h+a+dl-b)
else if b>a+dr then
writeln(h+b-a-dr)
else
writeln(h);
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -