Найти среднее арифметическое чисел от 1 до n( n- вводится с клавиатуры) В Basic - 256.... Составить не менее 2 видов циклов.

Предыдущий
вопрос Следующий
вопрос

Пример решения на Basic-256:

PRINT "Введите число n: ";
INPUT n
REM Используем цикл FOR
total = 0
FOR i = 1 TO n
total = total + i
NEXT i
average1 = total / n
PRINT "Среднее арифметическое с использованием цикла FOR: "; average1
REM Используем цикл WHILE
total = 0
i = 1
WHILE i <= n
total = total + i
i = i + 1
WEND
average2 = total / n
PRINT "Среднее арифметическое с использованием цикла WHILE: "; average2

Пользователю необходимо ввести число n, после чего программа вычислит среднее арифметическое чисел от 1 до n с использованием двух видов циклов - FOR и WHILE.