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
8364 простых числа....
denisx.ru/tech/prime-number/prime-numbers/first
по ссылке таблица до 100000.
копируем от 10007 до конца и в ексель. 836 столбиков умножаем на 10 и плюс 3. 8363 ошибся на один
Половина пруда на 9 день. т.к каждый день *2
9день это половина полного пруда.
2 в 9 степени это 512 листьев
если степени ещё не проходили , просто по умножай на 2
2 4 8.... 128 256 512
var
i:integer;
begin
for i:=60 to 70 do write (chr(i),' ');
readln;
end.