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

Share :

Twitter