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

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

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

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

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