1)130*16/8=260байт/1024=<span><span>0,253906Кб
Ксюша 32*(180/20)=288бит за мин*20/8=720байт
Вика 32*(182/18)=</span></span><span><span>323,5555556 бит за мин*18/8=728байт</span></span>
A * b * g = c примерно так и ответ
Function fact(n As Integer) As Long
Dim i As Integer, p As Long
p = 1
For i = 2 To n
p = p * i
Next i
fact = p
End Function
Sub Test()
Dim n As Integer, s As Long, i As Integer
s = 0
n = CInt(InputBox("Введите число n"))
For i = 1 To n
s = s + fact(i)
Next i
MsgBox s
End Sub
Первое выражение выведет true (1), поскольку x>0
Второе выражение выведет false (0), поскольку х не <0