QBASIC Program to print the series 1000, 500, 250, 125, 62.5

Using FOR...NEXT

CLS
n = 1000
FOR i = 1 TO 5
      PRINT n;
      n = n / 2
NEXT i
END

Using WHILE...WEND

CLS
n = 1000
i = 1
WHILE i <= 5
      PRINT n;
      n = n / 2
      i = i + 1
WEND
END

Using DO ... LOOP

CLS
n = 1000
i = 1
DO
      PRINT n;
      n = n / 2
      i = i + 1
LOOP WHILE i <= 5
END