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
А) 514=5*7^2+1*7^1+4*7^0=256
б) 0.017=0*8^0 + 0*8^-1 + 1*8^-2 + 7*8^-3=0.029296875
в) Немного не ясно что надо в сделать а вообще советую скачать конвртация чисел на андроид там все есть с решением
Вроде должно быть так:
program primer;
var a,b,x:integer;
y:real;
begin
write('Введите значение переменной A');
readln(a);
write('Введите значение переменной B');
readln(b);
y:=2.4*abs((sqr(x)+b)/a)+(a-b)*sqr(sin(a-b)+sqrt(10)(x-b);
wtite('Результат',y:6:2);
readln
<span>end.</span>
Будет сделан выбор 1 из 64, неопределенность знаний о выбранной клетке уменьшится в 64 раза, 64 это два в шестой степени, следовательно, количество полученной информации составит 6 бит.