Показать сообщение отдельно
  #2  
Старый 08.01.2017, 15:29
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Код:
var
  n: Integer;
  m: Integer;
  i: Integer;
begin
  n:=46;
  m:=n;
  i:=0;
  while (n>0) and (i<32) do
  begin
    n:=n shr 1;
    Inc(i);
  end;
  n:=1 shl i;
  Edit1.Text:=IntToStr(n-m);
end;
__________________
Пишу программы за еду.
__________________
Ответить с цитированием