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

А если циклом с параметром?

и постусловием?

в данном алгоритме представлен цикл с параметром. Можно заменить цикл на постусловие с помощью опрераторов Do While и Loop:clsrem alet sum=0let sred=0let n=0let i=1input "n=";nDo While i <= ninput bsum=sum+bLoopsred=sum/nprint "Sred = ";sredend

Не дописал.clsrem alet sum=0let sred=0let n=0let i=1input "n=";nDo While i <= ninput bsum=sum+bi = i + 1Loopsred=sum/nprint "Sred = ";sredend

clsrem alet sum=0let sred=0let n=0let i=1input "n=";nfor i=1 to n step 1input bsum=sum+bnext nsred=sum/nprint "Sred = ";sredend