Sub Zadanie()
n = CInt(InputBox("n ="))
for i = 1 to n
t = i
s = 0
Do While t > 0
s = s + (t mod 10)^3
t = t \ 10
Loop
if i=s then MsgBox i
next
End Sub
Максимальное значение адреса = FFF = 1111 1111 1111 (2cc)
1+FFF=2^ (12) =4096 ячеек памяти
<span>1010101 индекс 2=1*2^6+0*2^5+1*2^4+..+0*2^1+1*2^0=85(10)
85(10)=125(8)
85(10)=55(16)
</span>
Пограммирование
енавориммаргоп
пграммироване
еавориммаргп
праммировае
евориммарп
паммирове
еориммап
пммирое
ериммп
пмире
еимп
пие
еп
п
Ответ: П
Это что..................