Задание:
Помогите плиз найдите сумму переменных в 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
Знаете другой ответ?