Получить из Boolean integer

[min@y™]

Сообщение от Дmmm

А для задачки посложнее найдётся креатив?
if b then
x:=m/n else
x:=n/m;
тоже нужно в одно выражение без "if"

x:= byte(b) * m / n + byte(not b) * n / m;

[maloun]

упс, не заметил что это уже было

var
  b:Boolean;
  i:Integer;
begin
  b:=False;
  i:=Byte(b)-Byte(not b); // -1   
  b:=True;
  i:=Byte(b)-Byte(not b); // 1
end;