multiply by 2

Smart pascal source code


var n := 130;

while n >= 130 do
begin
  WriteLn(n);
  n := 2 * n;
  n := n * 2;
  if n > High(Integer) then
    Break;
end;

n := -130;

while n <= -130 do
begin
  WriteLn(n);
  n := 2 * n;
  n := n * 2;
  if n < Low(Integer) then
    Break;
end;

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
130
520
2080
8320
33280
133120
532480
2129920
8519680
34078720
136314880
545259520
2181038080
8724152320
34896609280
139586437120
558345748480
2233382993920
8933531975680
35734127902720
142936511610880
571746046443520
2286984185774080
9147936743096320
36591746972385280
146366987889541120
585467951558164480
2341871806232657920
-130
-520
-2080
-8320
-33280
-133120
-532480
-2129920
-8519680
-34078720
-136314880
-545259520
-2181038080
-8724152320
-34896609280
-139586437120
-558345748480
-2233382993920
-8933531975680
-35734127902720
-142936511610880
-571746046443520
-2286984185774080
-9147936743096320
-36591746972385280
-146366987889541120
-585467951558164480
-2341871806232657920

-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

var n = 0;

/* <<< main JS >>> */

   n = 130;
   while (n>=130) {
      WriteLn(n);
      n = n*2;
      n = n*2;
      if (n>9223372036854775807) {
         break;
      }
   }
   n = -130;
   while (n<=-130) {
      WriteLn(n);
      n = n*2;
      n = n*2;
      if (n<-9223372036854775808) {
         break;
      }
   }