создать сумму кубов, целых, положительных, четных, трехзначных чисел

@28Tt_tT28 · Регистрация: 28.03.2018

Author24 — интернет-сервис помощи студентам

Visual Basic

Sub Summa_kubov()
 
Dim i, a, s As Single
    i = InputBox("введите число p и нажмите OK")
    a = InputBox("введите число n и нажмите OK")
    
    Dim Ret As Integer
  s = (a + i) * ((a ^ 2) - a * i + (i ^ 2))
    
    MsgBox (s)
End Sub

~~Остап Бонд~~ · 28.03.2018, 22:26

Сообщение от 28Tt_tT28

создать

в смысле посчитать?
И про что Ваш код, позвольте поинтересоваться?

Visual Basic

Sub Summa_kubov()
'сумму кубов, целых, положительных, четных, трехзначных чисел
Dim i&, s#
For i = 100 To 998 Step 2
  s = s + i ^ 3
Next
MsgBox (s)
End Sub

	28.03.2018, 22:26