begin
var n := 10;
var x := 5;
var a := Arr(0, 1, 2, 3, 4, 5, 6, 7, 8, 9);
var b := a.Where(y -> y < x).ToArray;
b.Println;//0 1 2 3 4
end.
т.к. вариантов нет, то Х может принимать значения от 4 до бесконечности
1) 8 Кбайт = 8 * 1024 байт = 8 192 байт
8 192 > 8 150
Ответ: 8 Кбайт
2) 2.5 Кбайт = 2.5 * 1024 = 2560 байт
2560 байт * 1024 = 2 621 440 бит
Ответ: 2560 байт или 2 621 440 бит
Sqrt((2*a+sin(abs(3*a)))/3.56)
Sub aaa()
n = CLng(InputBox("Введите натуральне число"))
ReDim d(1 To 10)
i = 0
Do While n > 0
i = i + 1
d(i) = n Mod 10
n = n \ 10
Loop
ReDim Preserve d(1 To i)
n = i
For i = 1 To n - 1
For j = i + 1 To n
If d(i) < d(j) Then
t = d(i)
d(i) = d(j)
d(j) = t
End If
Next j
Next i
s = ""
For i = 1 To n
s = s + CStr(d(i))
Next i
MsgBox s
End Sub