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

Узнай цену своей работы

Формулировка задачи:

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

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

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

Оцени полезность:

14   голосов , оценка 4.357 из 5
Похожие ответы