Новый вопрос №83236

Четверг, 01 Января 1970 г. 03:00 + в цитатник

Всем привет! Объясните пожалуйста, почему в выводимом результате работы этой программы содержится две единички?

code:program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  mask: Int64;
  bin: string;
  i: Byte;
begin
  mask := 1 shl 52;
  bin := '';
  for i := 0 to 63 do
    if mask and (1 shl i) > 0
    then bin := '1' + bin
    else bin := '0' + bin;
  writeln(bin);
  readln;
end.

...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83236