Question

помогите плиз найдите сумму переменных в qbasic

Answer 1

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