To display the pattern. 1 212 32123 4321234 543212345 (Qbasic Code)

To display the pattern.

1
212
32123
4321234
543212345
 
  •  CLS
    a = 10
    n# = 1
    m# = 100
    b = 2
    FOR i = 1 TO 5
        PRINT TAB(a); n#
        n# = b * m# + n# * 10 + b
        m# = m# * 100
        a = a - 1
        b = b + 1
    NEXT i
    END