011111
Объяснение:
31(10) = 11111(2)
для того, чтобы сделать 31 в отрицательное нужно перед двоичной записью этого числа поставить 0(он означает минус)
Input a
f$=str$(a)
n1=val(mid$(f$,2,1))
n2=val(mid$(f$,3,1))
s=n1+n2
print s
Допустимое значение для величины «вес человека» — 85.
Function func1(a As Double) As Double
Dim i As Integer, b As Double
i = 1 - Sgn((Abs(a) - a) / 2)
b = Sqr(a * i)
a = a * 2 + i * (b - 2 * a)
func1 = a
End Function
Поместите этот макрос в проекте на любой лист и вызовите его
Sub aaa()
Pi = 4 * Atn(1)
r = CDbl(InputBox("Радиус круга"))
a = CDbl(InputBox("Сторона квадрата"))
s1 = Pi * r ^ 2
s2 = a ^ 2
MsgBox IIf(s1 > s2, "Площадь круга больше", IIf(s1 < s2, "Площадь квадрата больше", "Площади равны"))
End Sub