T
tyzytyz_cn
Unregistered / Unconfirmed
GUEST, unregistred user!
Function do
itplease(k:interger,N:interger):Boolean;
//K为球数,N为称重数
begin
N:=0;
if (k<=3) then
begin
case k of
0:N:=-1;
1:N:=-1;
2:N:=-1;
3:N:=2;
end;
exit;
end;
while not(k<=3) do
begin
k:=(k-(k mod 4))/2
N:=N+2;
end;
case k of
0:N:=-1;
1:N:=N;
2:N:=N+1;
3:N:=N+2;
end;
end;
itplease(k:interger,N:interger):Boolean;
//K为球数,N为称重数
begin
N:=0;
if (k<=3) then
begin
case k of
0:N:=-1;
1:N:=-1;
2:N:=-1;
3:N:=2;
end;
exit;
end;
while not(k<=3) do
begin
k:=(k-(k mod 4))/2
N:=N+2;
end;
case k of
0:N:=-1;
1:N:=N;
2:N:=N+1;
3:N:=N+2;
end;
end;