Question

write a qbasic program to display the following series. 123454321,1234321,12321,121,1..using for next loop.​

Answer 1

Answer:

please mark branlist answer

Explanation:

Using FOR ..... NEXT  

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