Function tet2n(n As Integer) As Integer
Dim i As Integer
i = 8
Do While i * (i + 1) * (i + 2) / 6 > n
i = i - 1
Loop
tet2n = i
End Function
Excel VBA
Судя по оценке "10", что, вероятно, равна 5, мы имеем дело с пятеричной системой счисления.
Текст с числами в десятичной системе:
«Я, Михаил Кузнецов,
родился 27 августа 1952 года.
После моего рождения – 10 ребенка в семье –
маму наградили орденом «Мать-героиня».
Но я, конечно, понимаю, что это обстоятельство
не дает мне права задирать нос перед своими
старшими 9 братьями и сестрами.
Как и все дети, 7 лет начал учиться в школе.
Учусь хорошо: почти всегда получаю балл «5».
С нетерпением ожидал момента вступления в пионеры.
Наконец, это свершилось: 10 лет я стал членом
Всесоюзной пионерской организации имени В.И. Ленина»
a = -3
b = -4 * (-3) - 6 = 12 - 6 = 6
x = 16
y = 3+8 = 11
если (-22 < 11) и (5 - 12 > - 5) - неверно, пропускаем
если (-6 + 11 > -1) или (15+6 < 16) истинно первое выражение
то x = 4, y = 1
Вывод x(4).
Ответ 4
<h3>PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(ReadInteger('n='), -50, 50);
a.Println;
a.Select(t -> Abs(t)).Max.Println
end.
<h2>n= 13</h2><h2>24 -14 9 -6 43 -4 15 -46 40 -14 -32 45 32</h2><h2>46 </h2>
2 ^29 бит = 2^29 / 2^3 байт = 2^26 байт
2^26 байт=2^26 /2^10=2^16 килобайт
2^16 килобайт=2^16/2^10=2^6 мегабайт=64 мегабайт
0,125 гб = 0,125 ✕ 1024 = 128 мегабайт
128 + 64 = 192 мегабайт