Версия для печати темы Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > сумма чётных и нечётных

Автор: Гость_max07 18.4.2005, 17:22

Помогите кто может: Надо найти сумму чётных и нечётных чисел от 100 до 999?

Автор: Гость_max07 18.4.2005, 17:26

сумму квадратов тоесть

Автор: Akina 18.4.2005, 18:23

Код Dim SumEven As Double = 0 Dim SumOdd As Double = 0 Dim i As Integer For i=100 To 999 Step 2    SumEven=SumEven+i*i    SumOdd=SumOdd+(i+1)*(i+1) next i Debug.Print SumEven, SumOdd

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)