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
(I - информационный объем текста, K - кол-во символов, i - вес одного символа/бит на символ)
Дано:
K = 31 шт
i = 8 бит
I - ?
Решение:
I = K * i = 31 * 8 бит = 248.0 бит
program zad4;
uses crt;
var
s,i,n: integer;
begin
clrscr;
writeln('Вычисление
суммы первых n положительных чисел');
writeln('введите
количество суммируемых чисел');
readln(n);
s:=0;
for i:=1 to n do
<span>
begin</span>
<span>
If n mod i =0 then</span>
<span> s:=s+n;</span>
<span> end;</span>
writeln('сумма
первых ',n,' положительных чисел равна ',s);
readln;
<span>end.</span>
<span>
</span>
<span>
</span>
<span>Попробуй как-то так</span>
B=8
a=40
(Если надо было посчитать чему будет равен a и b)
Лист защищен без пароля, чтобы случайно не повредить формулы.
формулы можно увидеть в строке формул.