Помогите, решить задачу на ЯП QBasic: "Найти среднее арифмитеческое пятидесяти первых натуральных чисел".
Помогите, решить задачу на ЯП QBasic:
"Найти среднее арифмитеческое пятидесяти первых натуральных чисел".
Гость
Ответ(ы) на вопрос:
ГостьDIM i AS INTEGER
DIM s AS INTEGER
DIM n AS INTEGER
CLS
n = 50
FOR i = 1 TO n
s = s + i
NEXT i
PRINT "sr=", s / n
END
Не нашли ответ?
Похожие вопросы