Как найти число, куб которого равен, ну например -8 или 125. Объясните пожалуйста понятно и пошагово,а то я боле и пропустил тему.

1

Ответы и объяснения

2012-12-14T13:02:38+04:00

dim reqSum, gotSum
dim numArr(10)
dim i, j, st

reqSum = InputBox("Enter N")

for i = 0 to 9
numArr(i) = i ^ 3
next

st = 0
for i = 1 to 9
for j = 0 to 9
if (numArr(i) + numArr(j)) = Int(reqSum) then
st = 1
MsgBox i & j & " or vice versa"
exit for
end if
next
if st = 1 then
exit for
end if
next