Вывести программы в QBasic: 1). Даны целые числа K и N. Вывести N раз число K. 2). Даны два целых числа A и B. Найти произведение всех четных чисел от A до B включительно. 3). Даны два целых числа A и B. Найти сумму кубов всех...
Вывести программы в 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
Не нашли ответ?
Похожие вопросы