Вопрос пользователя:
помогите плиз найдите сумму переменных в qbasic
Илюха отвечает:
1.
DIM i, j, k AS INTEGER
INPUT i, j, k
IF i < j THEN
IF i < k THEN PRINT i ELSE PRINT k
ELSE
IF j < k THEN PRINT j ELSE PRINT k
END IF
2.
DIM i, j AS INTEGER
j = 0
FOR i = 12 TO 100
IF (i MOD 2) = 0 THEN j = j + i
NEXT
PRINT j
или
j = 0
FOR i = 12 TO 100 STEP 2
j = j + i
NEXT
PRINT j
3.
DIM i, j AS INTEGER
j = 0
FOR i = 5 TO 10
j = j + i ^ 3
NEXT
1. найти наименьшее из 3х чисел, введенных с Клавы
2. найти сумму четных чисел от 12 до 100
3. найти сумму кубов чисел от 5 (в кубе) до 10 (в кубе)
4. найти y=2x(в кубе) / 10 , если x меняется от 1 до 10, с шагом 0,5
PRINT j
4.
DIM x, y AS INTEGER
y = 0
FOR x = 1 TO 10 STEP .5
y = ((2 * x) ^ 3) / 10
PRINT y