Смотрите решение ниже. Не забудьте перевести биты в байты.
Cls
rem a
let sum=0
let sred=0
let n=0
let i=1
input "n=";n
for i=1 to n step 1
input b
sum=sum+b
next n
sred=sum/n
print "Sred = ";sred
end
Sub z()
n = CInt(InputBox("N?"))
k = 1
s = 0
For i = 1 To n
k = k * i
s = s + k
Next
MsgBox (s)
End Sub
1. Переменная c=4,75. 4,75 - это дробь. Но переменная c задана как integer, т.е. целое число.
2. abs(x) - возвращает модуль числа x
sqr(x) - возведение в квадрат числа x
sqrt(x) - вычисление квадратного корня из числа x
random(x) - генерирование случайного числа в промежутке (0;X)