QBasic. Помогите, пожалуйста. Даны целые положительные числа A и B (A<B). Вывести все...

Question

QBasic. Помогите, пожалуйста. Даны целые положительные числа A и B (A). Вывести все целые числа от А до В включительно; при этом каждое число должно выводиться столько раз, каково его значение (например, число 3 выводится 3 раза).

Answer 1

DIM A%, B%

CLS
INPUT A
INPUT B
FOR i = A TO B
   FOR j = 1 TO i
   PRINT i
   NEXT j
NEXT i
END