Как возвести число 2 в степень (от 0 до 62)?

Delphi FAQ >> Алгоритмы

function sqr2(n: Byte): Int64;
var
  b, c: Int64;
begin
  if (n <= 62) then
  begin
    if (n < 32) then
      sqr2 := 1 shl n
    else
    begin
      b := int64(1 shl 31);
      c := 1 shl (n-31);
      result := b * c * (-1);
    end;
  end else result := 0;
end;


Все мы знаем «народную» газету из рук в руки. В ней люди размещают бесплатные объявления на разные темы, что позволит продать или купить практически что угодно.