Question

Вывести программы в QBasic:
1). Даны целые числа K и N. Вывести N раз число K.
2). Даны два целых числа A и B. Найти произведение всех четных чисел от A до B включительно.
3). Даны два целых числа A и B. Найти сумму кубов всех нечетных чисел от A до B включительно.

Answer 1

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