Валя, Вася,Вова,вода,волк,Наташа,панамка ананас
Sub average(ByVal N) S = "" sum = 0 N = Round(N) For i = 1 To N A = InputBox("Введите число № " + Str(i)) A = Round(A * 100) / 100 S = S + Str(A) If i <> N Then S = S + ", " End If sum = sum + A Next i MsgBox "Введённые числа " + S MsgBox "среднее значение " + Str(sum / N)End Sub
Sub test()M1: N = InputBox("Введите N; 0 - Закончить ") If (N = 0) Or (N = "") Then End End If Call average(N)GoTo M1:End Sub
110(n)=12(10)
1×n²+1×n+0=12
n²+n-12=0
D=1+4×12=49
n₁=(-1-7)/2=-4 <0 - основание должно быть натуральным числом
n₂=(-1+7)/2=3
Основание системы счисления 3.
110(3)=12(10)
Алгоритм перевода чисел из восьмеричной в десятичную систему счисления аналогичен уже рассматривавшемуся нами в разделе Перевод чисел из двоичной системы в десятичную. Различие состоит лишь в том, что для восьмеричной системы счисления основанием является число 8, а правило перевода в данном случае может быть сформулировано в следующем виде:
Для перевода восьмеричного числа в десятичное необходимо это число представить в виде суммы произведений степеней основания восьмеричной системы счисления на соответствующие цифры в разрядах восьмеричного числа.
Например, требуется перевести восьмеричное число 2357 в десятичное. В этом числе 4 цифры и 4 разряда ( разряды считаются, начиная с нулевого, которому соответствует младший бит). В соответствии с уже известным нам правилом представим его в виде суммы степеней с основанием 8:
<span>23578 = (2·83)+(3·82)+(5·81)+(7·80) = 2·512 + 3·64 + 5·8 + 7·1 = 1263<span>10</span></span>
1 Кб = 1024 Байт = 8192 Бит
1 Мб = 1024 Кб = 1048576 Байт = 8388608 Бит
1 Гб = 1024 Мб = 1048576 Кб = 1073741824 Байт = 8589934592 Бит