Question

Write a QBASIC program to print
123454321 1234321 12321 1211

Answer 1

Answer: CLS

a# = 11111

FOR i = 1 TO 5

   PRINT a# * a#

   a# = a# \ 10

NEXT i

END

Using WHILE .... WEND

CLS

A# = 11111

WHILE A# <> 0

   PRINT A# * A#

   A# = A# \ 10

WEND

END

OR

CLS

a# = 11111

c = 1

WHILE c <= 5

   PRINT a# * a#

   a# = a# \ 10

   c = c + 1

WEND

END

Explanation: