Question

Write a qbasic program to generate this pattern.
KATHMANDU
ATHMAND
THMAN
HMA
M​

Answer 1

Answer:

Explanation:

DECLARE SUB KINS (A$)

CLS

A$="KATHMANDU"

CALL KINS (A$)

END

SUB KINS (A$)

T=1

P=9

FOR I= 1 TO 5

PRINT TAB (T); MID$ (A$, T, P)

T=T+1

P=P-2

NEXT I

END SUB