Вывести программы в qbasic: 1). даны целые числа k и n. вывести n раз число k. 2). даны два целых числа a и b. найти произведение всех четных чисел от a до b включительно. 3). даны два целых числа a и b. найти сумму кубов всех нечетных чисел от a до b включительно.

CLS
INPUT "k=", k
INPUT "n=", n
FOR i = 1 TO n
  PRINT k;
NEXT i

Тестовое решение:
k=152
n=12
 152  152  152  152  152  152  152  152  152  152  152  152

CLS
INPUT "a,b=", a, b
p = 1
FOR i = a TO b
  IF i MOD 2 = 0 THEN p = p * i
NEXT i
PRINT p

Тестовое решение:
a,b=7,14
 13440

CLS
INPUT "a,b=", a, b
s = 0
FOR i = a TO b
  IF i MOD 2 = 1 THEN s = s + i ^ 3
NEXT i
PRINT s

Тестовое решение:
a,b=4,10
 1197