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

CLSINPUT "k=", kINPUT "n=", nFOR i = 1 TO n  PRINT k;NEXT iТестовое решение:k=152n=12 152  152  152  152  152  152  152  152  152  152  152  152CLSINPUT "a,b=", a, bp = 1FOR i = a TO b  IF i MOD 2 = 0 THEN p = p * iNEXT iPRINT pТестовое решение:a,b=7,14 13440CLSINPUT "a,b=", a, bs = 0FOR i = a TO b  IF i MOD 2 = 1 THEN s = s + i ^ 3NEXT iPRINT sТестовое решение:a,b=4,10 1197